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APPENDIX A 

ANALYTIC MODEL PROGRAM 


A.l PROGRAM DESCRIPTION 

The analytic model program calculates the Shuttle avionics surviv- 
ability for the ALT configuration. The user supplies the necessary baseline 
parameter data to the program as well as information on parameter variation. 

If time is specified as the independent variable, then survivability as a func- 
tion of time is generated for each parameter variation. If time is not specified 
as the independent variable, then survivability as a function of parameter is 
generated for each parameter that is specified to be varied. The only restriction 
on the number and type of parameters to be varied in any one run is that they 
must be in the same device. 

The program consists of a driver routine and six subroutines. The 
structure of the driver program is given on the opposite page. The routine 
accepts the input data and checks its validity. Next, the number of time 
points is set up and baseline survivabilities are calculated and printed. 

Following this, the varying partition is identified and its survivability is 
set to 1. System survivability with this partition excluded may be calculated 
for future use. Next, the parameters are varied and the survivabilities 
computed and printed. A separate path is required if time is the independent 
variable because of differing output formats. 

The actual computation is accomplished by a subroutine. There is the 
6PC model computed by SURVT, the MODS model computed by MCDSC, and the flight 
critical bus model computed by FLTCR. The appropriate subroutine is called 
for the survivability calculation for each partition. The parameters associated 
with that partition are included in the argument list. 

The printing of results is accomplished by subroutine. There are 
three distinct printout formats. The baseline results are printed by SVTPRT, 
the parameter variation results with time as the independent variable are 
printed by VATPRT and the parameter variation results with the parameter as the 
independent variable are printed by VAPPRT. 
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FIGURE A. 1-1 OVERALL STRUCTURE OF ANALYTIC MODEL PROGRAM 
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A. 2. UTILIZATION PROCEDURE 
A. 2. I INTRODUCTION 

Parameters are input to the program using the NAMELIST statement. 

This allows a relatively format free input specification and adds an identi- 
fication of the parameter on the punched card. There are five namelist 
groups to be entered. The variables to be entered are listed in Table A. 2-1, 
along with their group name and purpose. The variables that span several 
devices have an index I, while variables that apply to redundancy levels 
have an index K, eg. is detectability when 2 fault free units remain. 

The value of I -refers to a device as shown below 

INDEX DEVICE NAME 


1 MCDS DEU+DU 

2 MCDS KEYBOARD 

THE ABOVE TWO INDICES REFER TO LAMDA AND TAU ONLY. 
FOR U,V,W, AND LEAKGE USE INDEX 2 WITH K=1 
1,2, AND 3 REFERRING TO DDU+DU AND 4,5 REFERRING 
TO THE KEYBOARD 

3 GPC 

4 FLIGHT FORWARD MDM 

5 ADIA 

6 ACCELEROMETER 

7 IMU 

8 lACAN 

9 MSBLS 

10 RHC 

11 RPTA 

12 SBTC 

13 FLIGHT AFT MDM 

14 SERVO AMP 

15 RATE GYRO 

16 DDU 

17 AVVI 

18 A/MI 

19 HST 

20 ADI 

21 PCM MASTER 

22 OF MDM 

23 OA MDM 

24 FF MDM 4 

25 FA MDM 4 

This index system assigns the input parameters and program control 
variables to the proper device. For example, U(4,3) is U^ for the GPCs. 
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TABLE A, 2-1 


INPUT VARIABLES AND THEIR PURPOSE 


VARIABLE 

GROUP 

PURPOSE 

I 


Index number indicating a device 

LAMDA(I) 

PARAMS 

Permanent Fault Rate 

TAU(I) 

PARAMS 

Transient Fault Rate 

LEAKAGE (K, I) 

PARAMS 

Transient Leakage 

U(K,I) 

PARAMS 

Detectability 

V{K,I) 

PARAMS 

Diagnosability 

W(K,I) 

PARAMS 

Recoverability 

DELT 

'MSNT 

Time Increment 

TMAX 

MSNT 

Maximum value of time 

VARPAR 

MSNT 

Device number to vary parameters 

ITER 

MSNT 

ITER 2 allows another run to follow 

TIME 

FLAGS 

Indicates time is the independent variable 

UFLG(K) 

FLAGS 

Indicates U(K, VARPAR) is to be varied 

VFLG(K) 

FLAGS 

Indicates V(K, VARPAR) is to be varied 

WFLG(K) 

FLAGS 

Indicates W{K, VARPAR) is to be varied 

LKGFL6{K) 

FLAGS 

Indicates LEAKGE(K, VARPAR) is to be varied 

LAMFL6 

FLAGS 

Indicates LAMDA{ VARPAR) is to be varied 

TAUFLG 

FLAGS 

Indicates TAU(VARPAR) is to be varied 

DELU(K) 

DELS 

Increment in U(K, VARPAR) 

DELV(K) 

DELS 

Increment in V(K, VARPAR) 

DELW(K) 

DELS 

Increment in W(K, VARPAR) 

DELLKG(K) 

DELS 

Increment in LEAKGE(K, VARPAR) 

DELLAM 

DELS 

Increment in LAMDA (VARPAR) 

DELTAU 

DELS 

Increment in TAU (VARPAR) 

UMAX(K) 

MAXS 

Maximum value of U(K, VARPAR) 

VMAX(K) 

MAXS 

Maximum value of V(K, VARPAR) 

WMAX(K) 

MAXS 

Maximum value of W(K, VARPAR) 

LKGMAX(K) 

MAXS 

Maximum value of LEAKGE(K, VARPAR) 

LAMMAX 

MAXS 

Maximum value of LAMDA(VARPAR) 

TAUMAX 

MAXS 

Maximum value of TAU (VARPAR) 

TVAL 

MAXS 

Time when not the independent variable 
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A. 2. 2 INPUT DECK SETUP 


Within the program, some parameters are assigned default values. 

That is, if a parameter is not input, it is assigned a preset value. All 
Us are assigned .999. All Vs and Ws are assigned 1 except V(2,I) is assigned 
a value of .95. LAMDAs and TAUs are 100 (per 10^ hours). All FLAGS are 
.FALSE. Leakages are zero. 

A sample input deck set-up is shown in Figure A. 2-1. The namelist 
groups are to come in the following order: PARAMS, MSNT, FLAGS, DELS, MAXS. 

The initial card for each group must begin with a dollar sign ($) in column 
2 immediately followed by the group name with no imbedded blanks. Succeeding 
data items are read until a $ is encountered. Each data item is separated by 
commas and may be in any of two forms: 

1. A variable equals a constant 

2. An array with or without subscript followed by a list 
of constants, separated by commas. 

In (2), the subscript indicates the beginning location for the assign- 
ment. No subscript implies a 1. A variable may be omitted or may have more 
than one assignment. A value of ITER greater than 2 allows another input 
deck to be run after the current one. 
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FIGURE Ao2-l A SAMPLE INPUT DECK SET-UP 


A-6 




PROf.RA') 


cor. 66ltB FTR V?.n-P355 OPT^l 04/08/76 


17,25.02, 


PAGE 


1 


5 


10 


IS 


20 


25 


30 


35 


AO 


A5 


50 


55 


n 

c 

c 

n 

c 

r. 

c 

r. 

c 

r* 

c 

r. 

c 

0 

R 

C 

C 

0 

r. 

c 

c 

c 

c 

c 

c 

c 

G 

C 

C 

C 

R 

R 

C 

C 

c 

c 

R 

c 

c 

c 

c 

R 

C 

C 

R 

C 

c 

c 

G 

C 

fi 

G 

0 

C 


PROGRAM A lIMPUT, OUTPUT ,T APE5alNPUT»f APE6=OUTPUT> 


EACH UNIT OF THE ALT OP SYSTEM IS REPRESENTED fiV AM INDEX, 
THIS IS ALIST Of THESE REPRESENT AT IONS . 


INOEX WHIT REPRESENTEO 


t Mens OEU+nU 

- 2 ■ MODS KEVSDARO 

AOOtfE THO REFER TO LAHDA ANQ TAU ONLY, 

FOR U*V,H,ANO LEAKGE USE INDEX 2 HTTK POSITIONS 
1,2, AND 3 REFERRING TO OOUiOU AND A, 5 REFERRING 
TO THE KEYBOARD 
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21 PCM MASTER 
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23 OA MOM 

2A FF MOM A 

25 FA MOM A 


VARIABLE DICTIONARY 


AOTFUG 
alpha U,KI 
B(I) 

COVRGEIKI 

OELT 

DELTA IKI 
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LAMFLG 

LANHAX 

LEAKGE(K) 
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AQORT FLAG, A LOCIRAL VARIABLE 
COEFFICIENTS OF SURVIVABILITY EQUATIOM 
LOGICAL VARIABLE USED IN INPUT VALIDITY CHFCN 
COVERAGE 
TIME INCREHEHI 

permanent FAULT RATE PLUS LEAKY TRANSIENT RATE 
PERMANFNT FAULT RATF IN FAULTS PER HOUR 
'FLAG INOTCATINGJIF TRUE! DESIRE TO VARY LAHDA 
MAXIMUM VALUE OF LAMOA 

PERCENTAGE OF TRANSIENTS MISTAKEN FOR PERMANENT 
FLAG IHOICATINGIIF TRUE} DESIRE TO VARY LKGFLGjK} 
MAXIMUM VALUE OF LEAKAGE 
LOOP INDEX IN SURVIVABILITY OALCULAIION 
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C TIHI 

C TAU 

0 TAUFLG 

C lAllHAX 

C TE9P 
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C TIME 
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C TVAL 
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C U(K) 

C UFLG(K) 

C UMAX 

C V(K) 

C VFtGlKI 

C VHAX 

C U(Kt 

C HFLGIKI 

C UHAX 

C 
0 

LOGICAL B(2SI«AnTFLG,UFLG(Sl ,VFLC(5) tUFLG|5> t 

* LKGFLGf 51,LAMFlG,TAUFL6f TIHE.OOUFLGl^) 

REAL 0ELUI51 ,OELV <5 » ,OELH <5» .DELLKG (5J , DELL AH,0£LT AU, 

♦ UMAX I 51 ,VHAX<5|,HHAX(51 iLKGMAX J5J ,LAHHAX,TAU«AX,TVAL| 

f PARAHI2QI •RESULTiZOl tFCBUS(20) • 

» U15.25) .Vt5»26) |Vt (5.251 .LEAKGE I 5.25 ) , T<201 . 

^ ORGVAL(25l .LAMOA(25) «TAU(25) , SURV Itf (20 , 2 0 ( 

INTEGER HFA0ER(6) .NR(25I .VARPAR.UHITN(2a I 

NAHELIST/PARAMS/LAHOA.TAU.LEAKGE.U.V.H.N 7HSN1/DELT.THAX.VARPAR 

* .TTFR 

NAHELISI/FLAGS/UFLG.VFLC.HFLG,LKGFLG,LAHFL6,TAUFLG.f|HE 
NAHELISr/OELS/OELU.OELV.DELH.DELLKG.OELLAH.DELTAU 
HAMELIST/HAXS/UMAX.VHAX, HHAX ,LKGMAX , L A««AX ,T AUHA X . TVAL 
DATA UNnN/6HNGDSnU.6HKnDSKD.6H6PC .6HFF HQti.GHAOTA .6HACCEI. | 
» 6HIHU .6HTACAM .6HHSBLS .6HRHC .6KRPTA f6HSBTC | 

* 6HFA HDH|6HASA .6HRGYRO .GHDOtt .GNAVUt i 

» 6HA7MI .6HHSI .6HADI ,6«PCMHU ,6H0F MOH|6IIOA HDH. 

» 6HAFT FC.6HS CRir.GHM CRIT.6UFT DIS.6HFHD FP/ 

» , NR /3, 2, 3*4, 7*3, 2»«t, 3.10*27 

♦ ,h£APER76H one ,6H TWO ,6HTHfiEE ,6t( FOUR ,6H FIVE ,1H 7 

♦ ,LAHnA.TAU750*1007,LEAK6E7l25*0,7,U,V,H 7125* . 999 , 250*1, 7 

* ,TVAL, OELT, THAX, UMAX, VHAX,HHAX,OELU,DELH,OELV|OELLAH,nFLTAU, 

♦ LAHMAX,TAUHAX737*1 .07 > 

no 5 1=1,25 

5 U(2,I1 = .95 


NtlHOER OF COMPUTERS IN SYSTEM 

AN array used to store (HE INinAL VALUES OF U,V,H, 

LEAKGE, LAHOA AND TAU 

SUM OF PERMANENT FAULT RATF AND L£ AKAGE7TRAHSIFHT FAULT 
PATE PRODUCT, 

SUM OF THE PEPHANENT AND TRANSIENT FAULT RATES. EXPRESSED 
IN FAULTS PER HOUR 

TTHPORARV VARIAIILE FOR ALPHA COEFFICIENT CALCULATION 
SURVIVABILITY OF UNIT OF INTEREST AT MTH TIME INTERVAL 
TIME 

TRANSIENT FAULT RATE IN FAULTS PER HOUR 
FLAG INDICATING (IF TRUEI DESIRE TO VARY TAU 
MAXIMUM VALUE OF TAU 

TFMPORARY VARIABLE IN SURVIVABILITY CALCULATION 
TEMPORARY VARIABLE IN THAX7DELT VALIDITY CMFCK 
FLAG INDICATING (IF TRUEI TIME AS THE INOEPENOENT VARIABLE 
HAXIMUH TIHF FOR WHICH SURVIVABILITY IS CALCULATED 
THE VALUE OF TIHE FOR WHICH COHPJJT AT IONS WILL BE MADE 
USING ANOTHER INDEPEHDENT VARIABLE 
DETECTABILITY 

FLAG IN0ICATING(IF TRUEI DESIRE TO VARY U|K| 

HAXIHUM VALUE OF DETECTABILITY 

diagnosaoility 

FLAG INOICATINGdF TRUE) DESIRE TO VARY y(K) 

MAXIMUM VALUE Of DIAGNOSAOIL ITY 
RECOVERABILITY 

FLAG INOICATINGdF TRUE) DESIRE TO VARY W(IC) 

MAXIMUM VALUE OF RECOVERABILITY 
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C*LL*vMPRriMRI Jl tL*HD*IJ) .T8UU1 ,UII,J» tVll|3l ,M(I . Jl tl I 

• SvlPVIV,5ilRVIVIl »251 .SURVIVI 1 ,261 |HI lUIIIlHI J* iLt *KC£ 1 1 » Jl i JS* JF I 
IM1,W*RP8HI • UII,¥*RP*R» » Ofluni 

IF lul |,V8RP8RI ,l£.Urt*XIItlCO 10 2U 
UII,V(RP5PI ‘ OPCV5LIII 

uricm ■ .FHSF. 

281 noMiiMue 

00 20? I^t.NJ 
IF I.HOl.VFLCim COlO 282 
212 r.OHlIMUf 

If IV8RPAR.LC.2l CO 10 51! .. 

CALL SURVI IL AHOAI Jl ,TAUI3l«U|ti<J>*Vt!t<llim!f3! ,LC8RCF I! » J| 

« ,T,SURVTV<I«J) ,NRfJ) ,MTI 

IF IVARPAR.CC.5 .AHO,VARPAR,LC,28| CO TO 51! 

CO 10 512 

call FLICRILAH04l5»,TAUI5l,0U,5l,Vll.S! ,M (1 , 51 M |5I , 

• I.SlIRVIVI 1,51 iMI ,MRI5I ,LAN0AI25I ,lAMn4l25H 
CO TO 512 

511 CQHIIHUC 

call MCOSCILAHOA, |AU,U,V,M»LEA|CCC,I ,SURVIV 1 1,21 ,111 ) 

512 ,y||, 

• SURVIV, SURWIV U,25l , SURV IV ( 1 , 261 , Ml ,W|I I M 1^1 ,L E AKCC » JI | JS| JF | 
VII,VARPARt • VIltVARPARI ♦ OElVIlt 

If IVll.VARPARt .IC.VHAXmi CO TO 212 
VII,VARPAR| ■ 0RCVALI1*5I 
VfLCITI « .false. 

202 COHTIHUC 

DO 20 3 ni.NJ 

If I.MOT.MFLCim COTO 293 
211 CONIINUC 

If (VARPAR.LC.2I CO TO 521 .. 

CALL SUPVT (L AHOAT J| ,TAlHJI,UH,J|,Vll»JT»MM»J! ,l I AKCC ( 1 , J| 

• ,T,$URVIVI1, J) ,MRIJI ,NT| 

IF CVARPAR.CC.5 .AMO.VARPAR.Lf, 20 1 CO TO 623 
r.O TO 52? 

52 3 ,LEAKCEI1,5I , 

• T, SURVIV 1 1,5), NT ,NR 1 51 ,l ANOA 12 51 ,L AHOAI251 ) 

r.O TO 522 

521 COMTIMUF . 

CALL MCOSCIL AHOA, T AU ,U , V » «» L E ARCE , I , SURV IV II • 2 1 |HI) 

52? COMTIHilf _ 

PALL VAIPBT IMRI Jl ,LAtiOAIJl ,IAU| J I ,U 1 1 , Jl »VI1 ,31 ,M 1 1 , Jl jT t 

• SUP V IV, SURVI VII. 25) .SURVI VII, 26) .MT.UMIINIJ) ,l £ AKOC U , 3) , JS, 3f ) 
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3!S 


3*iO 


ms 


JSO 


J55 


360 


36S 


37J 


3^5 


ISO 


3»S 


cor fcfC-j FfM w3»3-PiS5 OM “ I CS/0^/76 


■ M II • otiMcn 

If |Mn,V»f»P6»l *lf 
U(I»V«PPAffl > OKCVAIII*10) 

MKGIll - .f*lS£. 

( nOHf INUf 

on 216 i«i.Nj 

IF I .MOI . IK&flftll n 60 TO 206 
216 r.O*lflMUF 

IF |v*liP«R.LE.2l GO TO S31 

C*LL SU«VT»LAHt)»IJ> , lAUIJI .<»(! * J> |VI t » J1 »IM 1 * J I j 1 1 *ACf ( 1 1 
« ,T,SU«VTVM.JI *MTI 

If iv*«P»R.6C.6,»H0iV*RP*».LEt2aT GO TO 533 
f,0 TO 532 

53 3 ^ Hym ,uil t6| tV(l|6T |MU.6» tLEAltCt |I •‘•J i 

• T iSURW IVI1«6l«NI 1 MR 161 tHM0A|26T yL AhOA 1251 I 
CO TO 532 

CALL*MWSCTlAHOA,TAU*U,V,MiLEAKC£,f »SURVIVCt|21*NIT 

CALi\aTPRMHPT JT «t*M0AI4» »T AU (JT tVIliJT fM III JT jT f 

♦ SU«*IV,SURVIV U.25I »SUBWTVIl»26» fMT tUMTlHl Jl #LC A»CCE I i * J> i JS t f 
LEAKCC II.VARPART » tf AKCE IT ,VARPAR» ♦ OEUKCm 

If (LfAKGC TI.VARPARI .IE .LKCMAlHIII GO TO 216 
If AKGE IT *VARPAR» • 0RCVAI.IIU5I 
LKGflGIII * , FALSE* 

206 CONIINUC 

IF I.NOT.lAMFLGI GO TO 205 
215 CONTIHUF 

IF IVARPAR,LC.2» GO TO 561 •* 

C»Ll SU»VT IL *H0*T JI»TAUIJI*UMtJI*VTT*Jl*m^tJI * IE4><GE IT f 41 

« *T,SURVIVtl«->l iHTI 

IF IV*RPAR.Gf.6.AHO,VARPAR,L£,20l 60 TO 561 
r.O TO 562 

CALL*fLTCRILAH0A|6l,TAUI6> ,U 1 1 161 , V 1 1 « M ,M 11 i6l jtEAKCEU »6| * 

• T iSURVMW < I *61 iMT |HR16> *L AMO A 1261 «LAM0A C25) 1 
GO TO 562 

contin^c 

CALL MCOSCILAH0A*TAU*U,V*RiL£AlC6f ,T,SURVIVllt21 |NT| 

CALL”wMPRTIMRiJl.l.*H0At41.TAUIJl,Ull.J) .WII.41»M11*J1 jTt 

• S0«VTW*SURVTWTlt25l tSUHVTWIlf2GI |NT*UNl IMI J1 ,l £ *KGf 1 1 * J1 f JS* Jf 1 
LAKOA IWARPARl ■ L AHO* IVARP AR| ♦ PCLLAH 

IF UAMPAIVARPARI.LE.LAMMAKI CO TO 215 
L ANOAIVARPARI » 0RGVALI2U 

lamfig ■ .false. 

2C5 TF I.MOI.TAUFLGI CO TO 598 
216 COMIIMUr 

If IVARPAR.LC.2t GO TO 551 .c.„rcn 

CALL SURV III Amo A lJt,TAU(J).UIl*JliVll|41»RU« -It 

• *T*SURVlVili Jl iNRIJI *HT1 

If 1VARPAP.GE.6 .AMO.VARPAR.LC.201 60 TO 551 
GO TO 552 
553 rOMTlHUt 
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PROGRAM 


COO 6600 FTN 03,0-0355 Of»T = l • OWOfl/76 


17,25f02, 


PACE 


3«}0 


395 


*«ao 


<«Q5 


<4 to 


<♦75 


<♦20 


<♦25 


<♦30 


<♦35 


<♦<♦0 


i 


0 


CALL FLfCRaAHQAt<i| ,T AU(<i) ,U ( 1 ,<♦ I ,0 1 1 ,<♦) ,Vt U ,<♦ I .LEAKGE 1 1 , <♦) , 
f T,StlRVIVI1.»<^),NT,HR(it) ,LAMnAI2<i> ,LAM0AC25n 

GO ro 

551 CONTINUE 

CALL HCnSCILAMnA»TAU,U«ViHtLEAK66,T,SURVIVUi2l lUT) 

652 CONTINUF 

CALL VATPRTINRt Jl tCAHOAIJt.TAUIJT.Ull.JI , V C t « J) |N 1 1 ♦ J1 ,T > 

» SURVlU,SURVlVU.25t ,SURVIVU,26),HT,UN1TN(J> ,LEAKGE(1,JI ,3S.4F| 
TAUJVARPARI = TAUIVARPARI + OELIAU 
IF UAUiVARPARI .LE.TAUMAXI GO TO 216 
TAUIVARPAR) s 0RCUALI22I 
T40FLG = .FALSE, 

CO TO 996 
C ChOOSfZ 

2000 00 301 T=>1,NJ 

JFI^NOr.UFLGfin GO TO 301 

♦♦ » Q 

311 CONTINUE 
H = M ♦ 1 

If (VARPAR,LE.2> GO TO 505 . 

CALL SURVTaAMDA(J).TAU{3|,U(ltJltV(t,JT,Hflt><)*LE<^KGEU,J) 

« «T,SUftVItf(l,J) •NRtJI ,NT) 

IF (VARPAR,G£,<,,AKO,VARpAR,L£<2P> GO 10 §07 

GO TO 506 
5P7 CONTIMIJF 

CALL FLTCR<LAHDAlM,TAUlM,Ull,<^>,yji|<i»iHll,<il,LEAKGE|l,Mi 

* T,SURVIVCl,H»iNT*>l«<<i)»lAMDA«2M|LAH0AI25n 

GO TO 506 ' ' 

505 CONTTNUE | 

GAEL MCOSCaAHOAiTAUfUfViHfLEAKCEtTf SURVIV(lt2) (NT) 

606 continue I 

PARAH(M> - Mil, 3) I 

RESULTIMI w SURVIVI1,JSI '■ 

FCQUSIHI =>4 SURVIV|t,3F) 

U(I,VARPAR1 3 U(I,VARPAR| i OELUm 
IF IUII,VARPAR| .LE.UHAXIIUGO TO 311 
U(I,VARPARI a ORGVALITI 

CALL V APPRTIPAR AH, RESULT, r It hH«UNirKMl,SURVlyM *251, SURVIVE 1,?GI 

* , HEADER III .6H0ErECT,6HABlLIT,2HY ,FCQUS,4F) 

UFLG(I1 = .FALSE, 

301 CONTINUF 

00 302 r=l,NU 

IF I.NOT.VFLGIIIl GO TO 302 
M = 0 

312 continue 
M = M A 1 

IF (VARPAR.LE.2I GO TO 515 

CALL SURVTILAHOAI J|,TAUlJt ,UI1,JI,VI1«3? II, J) .LEAUGEIl ,31 

* ,T,SURVIVI1,J| ,NRIJ| ,NT} 

IF <UARPAR.Ge.A.ANO.VARPAR.lE.20T GO TO 517 
GO TO 516 
617 CONTINUE 

CALL FtTCRILAMOAC^iItTAUIAI ,UI1 ,<♦» ,Vll,<tl ,M (1 , <t | , LEAKGE 1 1 , A Ir 

3 r.SURVIVIt,U,NT.NRIAI ,lAH0A|2AiaAK0A|2SM 

GO TO 51 6 



PPOGPAM 


••‘♦5 


(tSO 


<♦55 


<i 60 


<t65 


«*?0 


t»75 


<(60 


<iB5 


<♦90 


<♦95 


ft con 5600 Fr« V3.a-P355 OPT=l 0<4/0ft/76 47t^S,0?, PAGE ^ 

I 

615 CONflNUE 

GALE MCnsCILAMOA,TAU,U,V,H.LfAKGF,T»SURVlVUta| tNO 
516 nOfiriNUF 

PARAHim * Vllf J» 

RESULT mi a SU9VIV<l.JSl 
FCBUS(H) SURVlVfltJFI 
VU.VARPARI = WII.VARPARI ♦ PELVjn 
IF I\HI,VARPAR| .LE.VHAXm I , GO TO 31? 

VtItVARPARI s; ORGVALdtS) 

CALL VAPPRT«PARAH,RESULT»T«l»»f1.UHITM<J» tSURVlVIl ,25J ,SURV1VU*?6| 
f .HEAOERm »6RDIACNO,6l1SAatLI.2HTYtFCDUSf JFI 
VFLGCn a .FALSE, 

302 continue 
no 303 I=ltNJ 

IF (.HOTtNFLGim GO TO 303 
H = 0 

313 CONTINME 
H s H ♦ 1 

IF |VARPAR*t.E.2l GO TO 525 

CALL SllPVT|LANOA(J),TAU(J||U(lir3)tVilt^> 
t ,TtSURVIV(ltJI>NRU)»NTI 

IF (VARPAR.6E*A,AND«VARPAR,LE.201 60 TO 6?7 
GO TO 526 
527 CONTINUE 

CALL FLTCR(LAHOA(A|»TAU<AltUUy(||)V(t*<l) iWllyGhLEAKCE (1 f A| | 

V TiSURVIVtlfAt.NTtNR(A) |LAH0A|2Al fLAHOA(?5>l 

60 TO 626 
625 continue 

CALL HC0SC|LAM0A,TAU,U,V»H»LEAKGFfT»SURVIVMt2»iNTI 
526 CONTINUE 

PARAHim V HtI»JI 
RESULT IN) < SURVIVIltUSI 
FCQustm c suRyivti>4Fi 
HtI,VARPAR| s M(|,VARPARI * DELMUl 
IF IH(IiVARPAR) .LE.HHAXdll GO TO 313 
NIIiVARPARI » ORGVALIItlOl . 

CALL WAPPRT(PARAH,RESULTtTai»H,OHITN(J|»SURV|VU»?5) ,S0RVIV4»2G> 

* .HEADfRTII t6HRECOVE,6HRAQILI»2HTY.FCBUS,3F| 

HFLCIII a , FALSE. 

303 CONTINUE 
00 309 I='liNJ < 

IF <,N0T,LKGFLGIIH CO TO 3Q9 
H » 0 

31 <♦ CONTINUE 
M = H + 1 

IF IVARPAR»te,2l GO TO 535 

CALL SURVTILAHnAlJI»TAU(J|,UU,J|,VTI»«M»H*l»'Th*-£ft‘<Cf<i«J» 

* fT*SURVTVIliJI iNRUI tNn 
IF 1VARPAP,CE.4.AND.VARPAR,LC,20| CO TO 637 
GO TO 536 

637 CONTINUE 

CALL FLTCRTLAHOA(<il,TAUfAI ,U(1 ,<♦! , *H U »<»l ♦LgAKGEIl ♦<♦! f 

* T,SURVIV(l,A),NT,NR(<|»,LAMpAT29l,LAHOA(?5M 
GO TO 636 

635 CONTINUE 


BOTODUCIBILITY 'OF the 
OBIGINAL PAGE IS POOJ? 



PPOGRAM 


soo 


505 


5^0 


5 IS 


520 


525 


530 


535 


5«»0 


5»i5 


550 


ft COO 6600 FfN V3.0-e36S OPT=l 0<»/0B^76 17«25*02. PACE Ip 

CAtL MCDSC(|.AH5AiTftUtU,V»W,LEAKGE»T,SURVIW(li2>tNn 
536 CONrTNUF 

PARAHIHJ = |.EAKCE<I»J> 

RFSUUTIHI s SURVIVdiJSI 
FCBUSIMJ s SURtfIVit, JF» 

LFAKCF |I,WARPAR1 ® LEAKGEJ J.yARPAPI t OELLKGCI) 

IF aEAKGC ARPARIrLF .tKCMAXiP) GO TO 31«» 

UEAKGEd.VARPAR) = ORGVAMIU5) 

LKGFLG 1I» = .FALSE. 

HALL VAPPRT(PARAH. RESULT, rm ,H. WlIN< Jl .SURVJVU i25 J ,SURVI V 14 

♦ .HEADER CIJ,6H tEA.GHKAGE .2H .FCBUS.JF) 

304 COMTINUF 

IF (.HOT.EANFLG) go to 305 
H = 0 

315 CONTINUE 
M - H t 1 

IF (VARPAR*LE.2> go to 545 

CALL SURVTtLAHOAtJi.TAUlJI t-EAKCEMH) 

r .TfSUftVlV(l.J) .NRIJfiNTt 

IF <VARPAR.6£«4.AN0.VARPAR,L£*2G| GO T9 547 
GO TO 546 
54T CONTINUE 

CALL FLrCRfLAHOA(4l( TAUCAt ,U(1.4|fim.4ltRU.44«LEPKCE|4t44f 
« T.SURVIVU,4),NT,NR(4I ,LAHOA(24I.LAHOA(25H 

GO TO 546 

545 CONTINUF 

GALL HGnSCILAHDA.TAU.U.V.H.LEAKGE.TtSURVlVU.ZtiMT) 

546 CONTINUE 
PARAHIH) >; LAHOAM> 

RESULT (H) > SURVIU(l.JS) , 

Fcausim » sliRvivU.JF) i 

LAHOA (UARPARI 7 LAH0A<VARPARI t PELLAN 
IF ILAHOAItfARPAB).L£.LAHNA¥) 60 TO 315 
LBMOAIVARPARl a ORGVftL(Zl) 

CALL WAPPRTIPARAHtReSULT,TUI.H,tJNITN<JI,sgRVTV44,25|,5Uli:VIVUj8GJ 
» .HEADER <61, 6H LA.GUHOOA fZU ,fCOU^,Jff 

LAHFLC a .FALSE, 

305 IF I.NOT.TAUFVG) 60 TO 99B 

H a 0 

316 continue 
H = M # 1 

IF <VARPAR.LE,24 go to 555 

CALL SURyTILAHQAT t TAUIJ4 .U (1 .U) . V ( 4 . JI . H (4, ^4 .LEAKGE (4 ; J) 
t .T.SURVI5il.3)iNR(J)tNTI 

IF IVARPAR.GE.4,AN0,VARPAR.LE.?QI GO TO 557 
60 TO 566 
55T CONTINUF 

CALL FLTCRILAHOAf44« TAUI4) .U(l .4) , V< 1|44 .R (If 4) .LEAKGEd .44 f 

* T.SURVIVI4,4>.NT,NR(4I.LAHOA(24|,LAWOAI25M 
GO TO 556 

555 CONTTNUE 

CALL NCOSCILAHOA.IAU.U.V«H.LEAK6£,T,SURVI5(4.2hNT4 
666 continue 

PARAMTHI S TAUfJI 
RESULT IN) a SURVlVd.USI 



PROGRAM 


PAGE 




555 


560 


FCnUSIHl = SUPVIUUiJFI 
TAU(VAPPAR> t TAU(VARPARI ♦ OELTAU 
IF ITAUIVARPARI .UE.TAUHAXI GO TO 116 

CALl'^VAPPRTIPARAM*RFSULI tT<T* 9H*UNITN(J| ,SURVIVU »25I |SliRVIV(l|26I 
* ,HEA0ERI6I t6H T.6HAU ,2H ,FCBUS,JF» 

TAUFLG = .FAl-SE* 

998 ITER « ITER - 1 

IF IITEP.GE.l) GO TO 1 
STOP 

115 FORMAT UH0»65HRUH ABORTED BECAUSE OF VARIABLES OUT OF RANGE! 

STOP 

EMB 



SUOROUTINE 


SURVf 


CDC 661)0 FTN V3.0-P3S5 OPT=l 03/25/76 l<tr(|3*23t 


PAGE 


1 


S 


40 


45 


20 


25 


30 


35 


«l0 


h5 


SO 


55 


SUBROUTINE SURVT aAHOA«TAU«U,V »H«LEAXC£, T,SURVIVfNiNT4 
REAL SIGMA (5) ,L£AKGEf 5) .COVRGETB) ,U(5) , V(S) *H (5| tOELTA (5| . 

» ALPHA<5*5) ,SUH,TEMP, 

* LAHOAvTAU, 

• T4Z0) ,SURVIW|20I 
C 

C SICHAT CALCULATION 

C 

SICHAT 3 LANOA *■ TAU 
C 

C SIGMA «KI CALCULATION 

C 

QO 10 K=t»N*t 

SIGMAIKI = tAHDA t LEAKGECKinAU 
iq qONTINUE 
C 

C OELTAfKI CALCULATIOH 

C 

00 20 

OELTAIK) » MIK4«$ICHA(K4 * U.-U<KHfSIGHAT 
20 CONTINUE 
C 

C COVERAGE Ot(-CgLATIOH 

Q 

00 30 K::ci.N,l 

COVRGEIKI s UTK|«V(K|«HtK} 

30 CQNTINUE > 

c 

p ALPHA COEFFICIENT CALCULATION 

0 

alpha Util H 1, 

IF (NtLEtll GO TO kS 
DO ItO J=2tNtl •• 

L « J-1 
DO SO KUtLtl 

ALPHA U,KI =• 4«COVR6EM4*945HM3l*ALPHAf^l-li|(|/'f<|^OELrAHI 
f - KfOELTAIMI 

60 • CONTINUE 

SUN s 0*0 

qo 60 I«l«L*t 

SUN s SUH * alpha M. II 
60 CONTINUE 

ALPHAUtJl = 1, t. SUH 
AO continue 
A5 CONTINUE 
C 

C SURVIVABILITY CALCULATION 

C 

DO 80 H=ltNT 
TEHP=Qf 
QO 70 I^ltN 

TEHP = temp ♦ ALPHAINtIUEXP|-I«qELYAf 
70 CONTINUE 

SURVTV(H>» TEHP 
80 CONTINUE 



subroutinf 


SURVT 


CDC 6600 FTH V3tO-P3S5 OPT?! 03/35/^6 


PAGE 


RETURN 

END 



SUnPOtlTTHF HrnSR 


cnn 66 I. 1 J FTH V3,a-P355 OPT = t U<*/0n/76 


t5.t‘5.59 


PAGE 


t 


5 


^0 


15 

% 


20 


25 


30 


35 


(tO 


«*5 


50 


65 


SUOROUTINF MCOSGfl.A«DA,TflU,ll,V»lf*LEAKGe,TtSUKVIV»NT) 

RFAL LAM0AI2).TAU(2) ,U(5tiV<&) tU(5> ,L£AKGE 151 tC(S ) 1 
» SI6nT,SI6KT,STr.03,Sl6Q2,SIG01,SIGK2tSl6Kli0LT0 3» 

♦ nLTD2,m.TOt,OLTK2,nLTKl|D0201,0K2O31*0K2n32,0K2O21| 

* S12»S21tS22*SlltNKn.COfFA,COEFB,COEFC,COEFr),COEFe»COEFp, 

♦ COFF6,CO£FH,COEFI,COFFJ,COEFK,(;oEFL»COEFH,COEFN,C6EFP, 

# TFMP,S23,T(20) , SUHVIU 1 2 0» ,»02 ,H03 ,MK2 

n 

C CALnillATE COVERAGE 

c 

DO 10 1=1.5 
c<n=u<n*y«ii»wi« 

10 ROimUUF 

c 

c calcuiatf sigmas 

c 

SIGOT = ^.AM0A^1| t TAUItl 
SIGKT 3 LAHOAIZ) t TAUI2) 

SIG03 = LAMOAllI t 1.FAKGEI3I »TAlMl» 

STG02 = LAMOAIU F LEAKGF I2> *T AO U » 

SIGOl = LAMOAIU f tEAK6em*TAU<l| 

SIGK2 = LAMOAI?! t LEAKCEI5I *TAUI2l 
SIGKl = LAHOAI2I t LFAKGEI AUTAUiZi 
G 

C CALCULATE OFLTAS 

C 

0LI03 « STG03 * UU> t U-UI3I»* SIGOT 

OLT02 = S1G02 * U(2i ♦ (l-UI2U» SIGOT 

DLTOt'= SIGOL » Ulll + tl-UllIU SIGOT 
DLTK2 s SIGK2 <* UI5I ♦ Il’UISIU SIGKT 

DLTKl = SIGKl * UIAI ♦ U-U|i*U» SIGKT 

C 

G COMPUTE DENOMINATORS 

C 

00201 « 2*OLT02-DLID1 
OK2031 =2*OLTK2 ♦3FOLT03**nLTKl-QLTDA 
0K2032 =0K2O3lFnLTDl-2*DLTO2 
OK2021 c2*OLTK2t2»0LTO2-OUIK4-nLTDl 
00302 =3*0LT03-2*DLT0? 

DKZKl = Z*0LTK2-0LTK1 
C 

D COMPUTE PARTIAL NUMERATORS 

C 

N03= CC3I *81603 
H02= C(2»*SIG02 
NK2= CI5)*SI6R2 
NKO=0» <N02*NK2l 
C 

C COMPUTE NON-TIME VARVING COEFFICIENTS 

C 

COEFA = 4fNK2*N02/|00201*DK2D31l 
COEFB = U-2*MO2/n02OU*2*NK2/OK2D32 
COEFC = M03*NK0/l0K2t)21?0K2031) 

COEFO = l3-NKn/0K2021UHO3/OD3O2 
TEMP = A*N03*NK2»NI)2/IOD201*QK202U 



r» r> o r> o o 


sunnounru ncns 


pace 


2 


CO" 6t00 FJH VJ.O-PJS*; OPUI 0«i<0e/26 |5.|S.9<», 

r.nfff » rrHp/nK?im 
rnfff. j ifiiP/no <o? 

TTHP » n*?»tt02/0020n»?»Hni*«K2/0K2Kl 
COEFM • fH1P/ni(20J? 

60 cnEff « TrMP/omoz 

TiH» I H«>in3*iir)2*Nic2/i0K2Ki*oK2n2n 
rOEFl ■ fFMP/DK7031 
r.OEfll 0 IFHP/OOJ02' 

ie«P > U- 2 *W 2 /n< 2 l«U • 2 *M 01 *M 02 /nO?Ol 
65 COtfN ■ Tfl 1 P/n*OLfn 3 -OLIOn 

COEfP e TFHP/0030? 

roHPuie SIMPLEX siwuivaounirs 

no 1 > 1 »KT 

S23 0 EXPI-|3»fU.IOS*2»nilK2**Tmi 

S?2 • CXP(>t2*0LT02*2*0LTK2»*1 lin 

S 21 ■ exp(>(nLTnit 2 *nLTK 2 i*nTM 

SS2 a exPf>l2*01.TO?tOlTKt|fIII|| 

Sll » tXP(-«nLIOl»OLtKl»*Min 

coMPuiF swivivanuiTY 

SURWIwni»ICQCFa*COEFC»CO£fF»COEfL»MSn-S2JI t (CO£FHI*|S2I’iS2JI 
|«0 • • ICOEFe*COEFH| *(St2-S23» » S23 

* *(COEFO -COfFC-COCFI -COfFH-COf FP)* IS22-S2JI 

20 CONTINUF 
RFIURN 
END 
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I.TQR CDC 6^00 FTN V3.Q-P355 OPT=t 03/30/76 tl.*****^* 

SUBROUTINE FLTCRJtAMnAtTAU,UfW*H»tEAK6E»TtSURtfIV»NT»NR,L»il.FI 
REAL tAMOA«t7»tTAUft7l*U(5tt7l tV I5t 17» tS, 17» »LEAK6£(5« 171 , 

* CIS t t 71 tSURVIV 120(261 (Tf20t (DSUR (20 t 17) iCEQFFIA) t 
♦CEQFA|A)sCEQO,SSUR(20(17) (RSlH(20(12||SliTEttP2(TEMP3,S3(S2(LA(LF 

INTEGER HR(17) 

DO to J»t(t7 

00 5 1st (A 

5 c(i,j) = uiifai*vii(J)*H(i?J) 

1 3 nr(J) » t 

CALL SURVT (LAKOA ( J) ( TAU( J) ,U( If J> ^ V (t»3) 1 3) (LpAKGEC t , J) f 

f T(0SURtt,41(I(NT| 

to CONTINUE 

00 20 J»l(t2 

1 NR(Jt • 2 

CALL SURVT CLAHDA IJ) »TAUI J) ,U(iL, J) (V It » Jl |H( It 31 |(-EAK<iEUf 3) > 

* T(SSURIt«3)tI(NT) 

I > t 

CALL SURVT |LAHDA(4l(»TAU(3)fUlt»3)fVU|'l»#H(^»‘»|iPAKGE|tf3l» 

« TfRSIH(l«3)iItHTI 

20 CONTINUE 

DO 60 K=t«NT 
CEQO Cf2(t3) 

DO 30 Is tfit 
CEQFFIII » Clift) 

CEQFAII) V CllflO) 

30 CONTINUE 
Sl=>LAHOA(t ) 

TEHP2=EXP|-St*T(KM 
TEHP3=1-TEMP2 
00 70 3*=2fl7 

IF (4.NE.10,AND.3.HEft3) GQ TQ 65 
IF l3fEQ(10) GO TO 
St=LAH0A(t3) 

TEHP2s£XP(?St«T(K)) 

TeHP3«l''TEMP2 
GO TO 65 
61) CONTINUE 
Sl=LAHOA(tO) 

TEHP2^EXP(-SttT(K)) 

TENP3=>1”TENP2 
65 C(S,3)sQ 

IF (TE«P3fEQ.p| GO TO 70 

CIS,3)s(LAW0A|J)TTEMP3-SltTEHP2Tlt-^ EXP I'LAHOA (3) »T 
» ((LAH0A(J)fSl)«TEHP3) 

70 CONTINUE 

DO 80 IslAftT 

CEQD =CEQO »(tTCI5,T)*C(5iI)*C(2fI^) 

SO CONTINUE 
00 SO 3=2(4 
00 S5 1=2(0 

CEQFF(3)=CEQFF(4)*lt-CI5fI)tCI5iI)»C(3fin 
95 CONTINUE 

DO 97 I=tl(t2 

CEQFA<3) = CEQFAI3)»(t-C|5(|)»C(5,T)''C(3f);M 
97 CONTINUE 
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FLTCR 


COC 6600 fTN va.O-PISS OPT=t 05/30/76 


PACE 


90 COHTINUE 
S2 > ^ 

TEHPZ » 1 
00 <iO 1=16.17 

52 = $2 » SURVlVIK.ll 
TEHP2 =f TEHPZ*OSURIK,|l 

60 COMTIHUE 

TEKP3 a EXP<-tAHDAI13»*TfKn 

SURVIVIK.26I«TEHP3*TEHP3»S2 ♦ 2»CEQO<fTEHP3»f I’TE^PSJ *TEHp2 

53 = 1 

52 » 1 

51 a 1 

00 50 1=3*5 

53 = S3«SURVIVIK,I) 

52 a S2*0SUR|K,n 
SI = SifSSUR(K,II 

$0 CONTINUE 

TEHPZ = EXPI-LAMDA(H»TIKH ] 

TEHP3 a EXPI-LFniKII j 

SURVI V «K, 251 aTEHPZ*TEHPZ^Tf HP2*S3* fTEHP3*5URVIV IK| Z » tCEQFP I k \ f 

* «l-TEHP3|*qsUR<K.ZM ♦3»CEQpFf SmEHPZTTEHPZ^U-TEKPZI *ITEHP3» 

* 0SURIK,ZH0EQFF<6MU-’TEHP3l*SSURIK,ZMt 3TCEaPF<31TCEQFFIZ)f 

* TEHPZ* 1 1-TEHPZI *f Z*Sl* I Z*T EHP3» SgUR ( Kf tCf 5Ff f M ♦ ( 1-TEHP3J T 
f RSIH(K*2t I 

TEHP2 • EXP(-E1HOAI10I*T<K»I 

TEHP3 = EXPl-LA»TfKII 

SURVIVIKtZl) » T£HPZ»TEHP2TIEMPZ*0§URll«*lZIF<TFHP3fSURVlV(K»lUt 
f 3»CE0FAt6ITU''TEHP3l*0SUR(|C*lin t 3»CEQFAI3>»TEHp2tTEHP?f 

* OSURlK.lZl^f l-TEHP2)*(TEMP3*0SURfK»llHCEQFAI6Pll’IEMP3l» 

* S$URtK*llll ♦ 3*CEQFA<3l*CEQFA»Z»FT£HP2'Mt-TEHPZ)*t?T5SUR<KflZ| 
t »|2»TEHP3 *SSUR<K.11»*CEQFA{6J*U-T£HP3}*RSI|<C|<|11M 

60 CONTINUE 
RETURN 
ENQ 
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SVTP 01 COC 6600 FTN V 3 . 0 -P .156 Opj=i DJt/ 06/76 15 ^ 15 . 59 » PAGE 1 

SUB«OUTIMF SVTP'iMH.LAMOA.TAUtU.V.HtT.SlIRVIVijipiLeAKGEiUtllTm 
I7FAL 11(5, 25) .V (5,a6) ,M(6,25I tLf AKGE (5« 2^1 ,LAf<nA<?5)« 

* TAiMas) iTiao)« suftvivcao.aa ) .ft ' 

INTEGER 0 »NRfa 5 ),(iNITN|ani 
iJASELlNE RESULTS PRINT ROUTINE 

URITEIOG, 11) 

11 FORMAT lltin 
WRITE I 06 , 12 ) 

12 FORMAT ClNO,19Xf25HCONFIGURATION PARTICULARS) 

HPITE (6,13) I 

13 FORMAT |1H0*16X, I, HUNIT,19X,9HPTRMANEMT,22X»9HTRANSieHT> 

WRITE (6,14) 

14 FORMAT (IH ,16Xf6HNAHE , 19X, 4HRATE,E7Xt4)<RATE) 

WRITE ( 6 , 17 ) 

DO 16 I»l,23 

WRITE ( 6 , 15 )'UNITNCI),LAHOA(T),TAU(I) 

15 FORNATTIM , 15X, A6,Q9X,£2fl, 7, 11XE?D,7) 

16 CONTINUE 

17 FORMAT (IHO) 

WRITE ( 6 , 17 ) 

WRITE ( 6 , 18 ) 

10 FORMAT (1MO»28X*9HSU8SGRIPTo9X,13HDETECTARILITT,SX, 

« t 4 HOIAGNOSAntLTTV, 5 Xtl 4 KRECOV£RA 9 TUTV,OX« 7 ML|EAXAGfT 
write (6,17) 
no 20 J- 1,23 
K s MRU) 
no 28 I= 2 iK 

WRITE 16 , 19 ) UNITNU),I,U(If 3 ),VU»>J)iHUtJhl-E<^KGEn, 4 ) 

19 FORMAT (IH « 15Xt A6(1QX , 11 , 5X, <(F19 .7) 

20 CONTINUE 
tJNITN| 2 ) » 6 HHC 0 S 

IF (N,GE. 2 ) GO TO 50 
WRITE ( 6 , 11 ) 

WRITE (6,37) T(l) 

37 FORMAT (lHO* 2 tX, 15 HMISSIOH TIHE IS , HOURS) 

WRITE (6,21) 

21 FDRMAT(lt)0,23X, 4HUNIT,24X,8HBASELINE»ii<*Xf 7|(FAUURE) 

WRITE ( 6 , 22 ) 

22 format (IH ,23X,6HNAHE ,19X, 13MSURUIVAfi|LITY,20X, llHPRPOAniLITY) 

WRITE 16 , 17 ) 

00 31 1=2,20 

FT = l-SURVIWIl,n 

WRITE ( 6 , 30 ) UNITN(I),SURVIU| 1 ,I),FT 

30 FORMAT (lH0,21X,A6,t0X,F14.7,20X,El(>, 7) 

31 CONTINUE 
RETURN 

60 no 60 J=2,2S 

write ( 6 , 11 ) 

WRITE (6,17) 

WRITE ( 6 . 51 ) UNITHIJ) 

61 FORMAT I1IIO,16X,1SHSURVIVAOTLTTV fOR ,A6) 

WRITE ( 6 , 51 ) 

53 format (IHO, 19X,7UMI<5STON,,15X,13HCOHFiqURATIONrT9X^7HFAILPf?E) 



suflpfHjrfur c(v, 6bOi) FfH v3,o-f*3».5 nn-i i)ii/in/rb is»tSt$4« P*C£ 2 

•is ♦UX,UMrfHroiOU«SI,»31i,|3HSU«VlV*n!irTr,J2X, 

* ipipponxotiny) 

MPM£ ((..17) 
no 60 I«1 ,H 
FT » I- SMVTVI I, Jl 
MHlTt 4r.,?7| Tdl.SUPvrviIiJ), f1 
ftO COHTIHUC 

52 roPHlTIIH ,2F76.6,eZ6.6l 
65 PFTIIHH 

fHO 


r* c 3 

c> r-< 

5 ; ^ 

c 
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COO 6600 FfN V 3 . 0 -P 365 OPT = l O^/OZ/ye 16 , 57 , »» 0 . PACE \ 

SUflROJTINE VATPRT(N,L«MDA,T 4 U,U,U,H,T,SURVTV,SAFFTY,HISS 0 H,NT, 

♦ VARPAR,LEAKGE»JS,JF> 

REAL UI 5 I» V« 5 |, UI 5 I, EAMOll, TAU, TI 20 », SURtflV « 20 , 20 | 

♦ ,SftFETY| 2 O),Hrs 5 ON« 20 >tTFHP 

♦ ,LEAKCEC5l,Fr 

integer n,varpar 

PRINT ROUTIN FOR PARAMETER VARIATION 
HtlH TIME AS THE XMOEPENQEMT VARIABLE 

HRirEt 06 ,lll 
It FORMAT (tHl» 

HRITEI 06 , 12 J VARPAR 

12 FOHHAT llHO, 19 X, 30 HttONFIGURA 1 ICM PARTICULARS fOR ,A 6 > 

RRITE 16 , 23 » 

HRlTEia 6 ,tM LAMOA 

lA format IlH ,tAK, 2 qUPERHANENr fAULT RATE»E? 0 t 7 l 
' HRITE 106 , 15 I TAll 

15 FORMAT (IH , 1 AX» ZAMIRAM^IENT fANH RATE,E 20.71 
HRIT£( 06 « 16 » <UU(,I» 1 ,H) 

16 FORMAT IlH ,mX,lAHOETECTABILITV , 5 F 1 <*, 7 > 

URITE(d 6 ,in (VIII,lT=t,NI 

17 FORMAT (IH tmX,lAHDIAGNOSAqU.ITY,Sfl‘M 7 l 
HRITE| 06 , 18 I IM(n»I=l,NI 

la FORMAT UH jlGXilAMRECOVERAOHITYtCFlAoTl 
WRITE < 6 , 27 » U,F*KCF* 7 »»I=*«N> 

27 FORMAT IlH , 16 X, 7 NLEAKAGE , 7 X, SFl ^ , 71 

15 fORMATllHo!Ux,7HMlSSION,t5X,t3MCONFI6URAnDN|iaX,7NFAa<|Rf ! 

21 %ftrinitH^ll 7 X,llHrrKE(f|OURS|, 13 X,lIHSURVlVA 8 ILTTyi^ZX, 

* IIHPROBABILITYI 
RRI TE 1 06 i 23 ) 

23 FORMAT IlHOI 
00 60 T»itNT 
FT s 1 > SURVIVlItJS) 

WRITE le, 52 ) T«), SURVlVIIfJSU FT 

60 COMTINliE 

S 2 FORHATUH , 2 F 26 ,efE 26 , 6 t 
HRITE 16 , 23 ) 

WRITE ( 6 , 23 ) 

write ( 6 , 6 U , ^ , 

61 FORMAT ( 1 H 0 . 1 SX, 29 MSAFETV CRITICAL SURVlVAeiLlTY I 
WRITE I 06 * 23 ) 

HRrT£(a 6 * 15 ) 

HRIT£( 06 f 211 
HRiTEf 06 » 23 ) 

QO 70 T* 1 »MT 

TEMP = SURtfIVd, JF» • SAFETVUI 
FT = 1 - TEMP 

WRITE ( 6 , 52 ) T(II,TEHP»FT 
70 CONTTNUE 
WRITE ( 6 , 23 ) 

WRITE 16 , 23 ) 

WRITE ( 6 . 71 ) 
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SUBROUTINE VBTPRT CDC 6600 FTM V3.0-P355 0PT=1 04/02/76 16.57.40< 

71 FORHAT flH0,15Xt30HHISSION CRITICAL SURVIVABILITY » 

MRITE<06,23> 

WPirE(06»19) 

HRITE<06,21) 

60 WRITE I 06, 23) 

DO flO 1=1, NT 

TEMP = SURVIVII, JF) * MISSONH) 

FT = 1 - TEMP 

WRITE 16,52) TfI),TEHP,FT 
65 80 CONTINUE 

IF (JF ,LT. 24) RETURN 
WRITE (6, 23) 

WRITE T6, 23) 

WRITE T6, 81) 

70 81 FORMAT (1HO,15X,31HOVFRALL PARTITION SURVIVABILITY) 

WRITE <6, 23) 

WRITE C6, 19) 

WRITE (6, 21) 

WRITE (6, 23) 

75 DO 82 I =r 1, NT 

, FT = 1.0 “ SURVIV<I,JF) 

82 WRITE T6, 52) Ttl), SURVIVCI, JF), FT 
RETURN 
END 
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SUaROUrrMF VAPPRTITi SU«VIVirVA|.*M.VAfiPARiSAFETYfHISSOH* 

« HEAOeR,HFA()A,KEAOntH£AOC,FCaUS, JF) 

REAL TI20I, SURVIVI20I, YVAL, SAfETVi HlSSOt^, FT* TEMP* FCOUSI^OI 
INTEGER N,M,HEA )ER.R£AOA«HEAOB,HEADC,VARPAR 
C 

C PRINT ROUTIN FOR PARAHETER VARIATION 

C Uirti PARAMETER AS THE INOEPENOENT VARIABLE 

C 

HKITE<pe,Ul 

11 FORMAT (1H1> 

HRITEI06,12» VARPAR 

12 FORMAT (lHQ,i2X,16HVARVTNr, UNIT 15 *AE| 

WRITE 106*231 

WRITE (06* 20) TVAL 

20 FORMAT (lHO*lSXtl6HHlSSION TINE IS tE20,7(6N HOURS) 

HRirE(06*23) 

HRIIE (06*191 HEAOA«HEADB|HEADC 
19 FORMAT (lKO*l&X,2Afi*A2*lAX*13HCONFlGIJRATIOH,19A»7MFAlEURF) 
HRirE(06*21) HEADER 

21 FORMATUH *20X,A6,t0X|13HSURVIVA01LITY|17X|llMPROBiai|.|TY) 
HRITE(06«23) 

23 FORMAT (IHO) 

00 25 l3l,H*l 
FT * 1- SURVIVCII 

25 MRITE(06.2At f ID *SURVIV(I) *FT 
2A FORMAT )1H ,F2G«&*TSX,FlA«'T*t5X,E)A*7) 

WRITE (6,23) 

WRITE (6*23) 

WRITE (6*61) 

61 format ( 1H0,1SX*29HSAFETV CRITIpAL SURVTVAOI|-IT Y ) 

MPITE(06*23) 

HR1TE(06«19) HEADA*MEADB,HEA0C 
WRITE 106, 21) HEADER 
WRITE (06, 23) 

00 30 IsUH 

TEMP = SURVIV(I)«SAF£TY 

IF IJF .GE. 24) TEHP = FCBUS|I) ♦ SAFETY 

FT =* 1 -TEMP 

WRITE (6,24) T(I), IEMP*FT 
30 COHTINUE 
WRITE (6,23) 

WRITE (6,23) 

WRITE (6,71) 

71 format (lH0,15X,30MHrssrON CRITICA). SURVIVA0D.ITY ) 

HRITE(06,23) 

HRITE( 66,19) HEAOA,HEAOB*HEAOC 
HPirE(06,21l HEADER 
HRirE(06,23) 

DO 40 I=1,H 

TEMP = SURVlV(I)»«ISSON 

If (JF .GE. 24) TEHP » FCOUS(I) 9 HISSON 

FT » i -TEHP 

WRITE (6,24) T(I»* TEHP, FT 
40 CONTINUE 

TF (JF .LT. 24). RETURN 



SUOHOUTINF VftPPRT COC 6600 FTH V3.0-P365 OPI = | 0<»/02/76 ^6,57.40. 

HRire I6f 23> 

MRire 16, 231 
HRirE (6, Btl 

SI FORMAT <iHO,19X,31HOVFRALL PARTHIOK SURVI VAB{U TYI 
6q WRITE |6, 231 

WRITE fb, 19) HEAOA, WEAOR, HfAOC 
WRITE (6, 21) HEAPER 

no S 2 1 3 1 , H 

FT = 1.0 - FCaUSlI) 

65 62 WRITE 16, 29) Ttl), FCOUS(I), FT 

RFfURN 
FNP 


PAGE 2 





f 


i' n,'\ '■.Uj.’D ii 



THIS PAGE INTENTIONALLY LEFT BLANK 



PRECEDING PAGE BLANK NOT FILMED 


B.l SIMULATOR INPUT DECK SETUP 

The input deck setup is dependent upon the system configuration. Since 
it is sometimes necssary to simulate the GPC partition without the FCB partition 
or vice versa, the simulator allows the combined simulation of both partitions 
and the separate simulation of either partition. The simulator input deck setup 
is dependent upon the partitions being simulated. 

The first card of the simulator input deck specifies the type of simu- 
lation run being made and the seed for the random number generator. SIMTYP 
specifies the type of simulation. If SIMTYP=1, then the deck setup in Figure 
B.l-l is used. The deck setup in Figure B.l -2 is used if SIMTYP=2. SIMTYP is 
specified in column 10 of the input card. SEED, the random number seed is speci 
fied in columns 11-20 of the card. It specifies the initial generative value 
for the random number generator. Multiple configurations can be simulated in 
one run. The input deck for each configuration is set up as described below. 
These input decks are combined into one large deck. A card with -1 in columns 
9-10 is placed at the back of the deck to indicate no more configurations are 
to be simulated. 

The input deck consists of several major groups of cards. Group 1 
specifies the configuration of the GPC partition, group 2 specified the fault 
environment for the GPC partition, group 3 specifies the configuration of the 
FCB partition, and group 4 specifies the failure rates for the FCB partition. 
Group 2 is specified once for the CPU, once for the lOP, and once for the memory 
Group 4 is specified once for permanent faults and once for transient faults. 

The detailed deck setup for each of these groups of cards are described in 
Sections B.1.1 through B.l. 4. 

Figure B.l-l and Figure B.1-2 show the two possible input deck setups, 
which are dependent on the parameter SIMTYP. For the simulation that includes 
the GPC partition {SIMTYP=1), Group 3 and Group 4 will not be included if NMODU, 
which is specified on card of Group 1, is less than four. The FCB only simula- 
tion (SIMTYP=2) has several cards identified by "simulation descriptors." This 
card specifies the number of missions in columns 1-10 and the number of faults 
for mission in columns 11-20. As many of these cards can be used as desired, 
and then the deck is terminated by a card with a -1 in column 9-10. 

The deck setup for the baseline configuration is listed in Section B.l. 5 
It consists of a total of 116 cards. Note that some of the cards are blank. 

In this case, the parameters that the cards specify are assumed to be zero. 
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IDENTIFICATION 


DESCRIPTION 


HEADER 
GROUP 1 
GROUP 3 
GROUP 2 
GROUP 2 
GROUP 2 
GROUP 4 
GROUP 4 


IDENTIFICATION 


HEADER 
GROUP 3 
GROUP 4 
GROUP 4 
Simulation 
Descriptor 


Simulation 

Descriptor 

-1 


Specifies SIMTYP=1 and sets initial random seed 

GPC configuration description 

FCB Configuration description (only if NM00U=4) 

Failure rates for CPU 

Failure rates for lOP 

Failure rates for memory 

FCB component permanent fault rates (only if NM0DU=4) 
FCB component transient fault rates (only if NM0DU=4) 


FIGURE B.1-1 DECK SETUP OF SIMTYP=1 


DESCRIPTION 


Specifies SIMTYP=2 and sets initial random seed 
FCB configuration description 
FCB component permanent fault rates 
FCB component transient fault rates 

Mission time and number of faul ts/mission 


Mission time and number of faults/mission 
End of simulation descriptors 


FIGURE B.1-2 DECK SETUP FOR SIMTYP=2 
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B.1.1 INPUT PARAMETERS - GROUP 1 


CARD 1 

NMISl 

IDEBU6 

CARD 2 
NBOUC 


RMISTH 
CARD 3 


PARAMETER 
COLUMN NAME 


PARAMETER DESCRIPTION 


DATA 

TYPE 


I-IO NMISl Number of missions to be simulated INTEGER 

10-20 IDEBUG Debugging specification INTEGER 


If this number is negative, it indicates an end of file to 
the program and the simulation is aborted. It is better 
however to use SIMTYP as the end of file indicator. Thus 
several simulations can be run at once. 


The debugging option was created to deal with specific 
difficulties met during the programming phase. Currently, 
if IDEBUG=1 , the cause and time of each system failure is 
printed and the cause and time of the first 50 state transi- 
tions is printed. IDEBUG=0 specifies that no debugging is 
to take place. The user by modifying the program may speci- 
fy other meanings of IDEBUG. 


I- 10 NBOUC Repetition period INTEGER 

II- 20 RMISTH Mission duration (Hours) REAL 

Faults (permanent and transients) are generated prior to 
simulation and listed sequentially in a fault table 
(TABLE (300 ,4) ) . However, because hundreds of thousands of 
faults are simulated, it is not feasible to generate all 
faults at once. On the other hand, it would be quite in- 
efficient to generate them for each mission. NBOUC repre- 
sents the number of missions for which faults are generated 
at one time. It should be chosen so that TABLE is effi- 
ciently utilized. TABLE contains at most 150 permanents and 
150 transients. Thus if the whole system has a transient 
failure rate of 2400 per million hours, a permanent rate of 
2000 per million hours and if the mission is 10 hours long, 
an average of 120 transients and 100 permanents are gener- 
ated every 5000 missions. Thus NBOUC might be chosen as 
5000. If NBOUC is too large, faults are generated which 
cannot be stored. A diagnostic is output and the simula- 
■'tion aborts. 

The mission time is expressed in hours. 


I- 10 NMODU Number of modules 

II- 20 MODSIM Total number of computers 


INTEGER 

INTEGER 



COLUMN 


PARAMETER 
NAME ■ 


PARAMETER DESCRIPTION 


DATA 

TYPE 


NMODU 

MODSIM 
CARD 4 

NSPA 

CONDIT 

CARD 5 

NONDED 

NIO 

CARD 6 

PCOM 

PBU 


Faults are generated for modules one thru NMODU. 

MODULE 1 IS the Central Processing Unit (CPU). 

MODULE 2 is the Input/Output Processor (lOP). 

MODULE 3 is the memory. 

MODULE 4 is the Flight Critical Bus Partition (FCB). 

Thus if NMODU is 3, faults are generated for only the 
CPU, lOP, and memory; the FCB would be ignored. If 
NM0DU=4, the whole system is simulated. 

MODSIM indicates the total number of computers. It must 
be less than or equal to 5 and greater than zero. 


I- 10 NSPA Number of spare computers INTEGER 

II- 20 CONDIT Space conditioning time REAL 

Number of spare computers (should be 0 if MODSIM <3). The 
lOPs should be nondedicated to the computers. For the 
Shuttle simulation NSPA should be set to zero. 

CONDIT represents the time in milliseconds it takes to con- 
dition a spare computer. If NSPA is zero, CONDIT is 
i gnored . 


I- 10 NONDED Dedicated/Nondedicated lOPs INTEGER 

II- 20 NIO Number of lOPs INTEGER 

1: Dedicated lOPs 

2: Nondedicated lOPs 

For the Shuttle simulation, NONDED is 1. 

Number of lOPs. This parameter is significant only if NONDED 
is equal to 2. 


I- 10 PCOM Impact of EEM fault on computer only REAL 

II- 20 PBU Impact of EEM fault on bus only REAL 


These two numbers represent the probability that an lOP 
fault impacts the computer or the 'bus but not both. If 
the lOPs are dedicated (e.g. the Shuttle DPS), the program 
computers PBUCO (the probability that a fault disables both 
the bus and computer) as 1-PCOM-PBU. Thus if PBU is zero all 
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COLUMN 


PARAMETER 

NAME 


PARAMETER DESCRIPTION 


DATA 

TYPE 


CARD 7 

IROLLA 

RECOV 

MININT 


CARD 8 
IDLYRC 

RCDUR 


faults disable the associated computer. PCOM and PBU 
are set to zero by the program if the lOPs are nondedi^ 
cated, which assumes that the computers and lOPs are fault 



independent. 




1-10 


IROLLA 

Rollahead 

indicator 

INTEGER 

11-20 


RECOV 

Rollahead 

recovery duration 

REAL 

21-30 


MININT 

Roll ahead 

recurrence interval 

REAL 

31-40 


RACPU 

Rollahead 

effectiveness 

REAL 


1: 

Rollahead 

is the recovery procedure in multiplex 

opera- 


tion 





0: 

No rollahead. 




RECOV represents the time in milliseconds required to complete 
state vector transfer and continue normal operation. 

Specifies a time interval in milliseconds. If a fault occurs 
after a roll ahead and before this time interval has elapsed 
it is in the same location as the previous fault. It is 
assumed to be a reoccurrence of the previous fault. The 
fault is thus assumed to be permanent, and a new roll ahead 
is not initiated. 

Probability that a transient fault, which does not cause pro- 
gram memory damage, is recovered from because of a rollahead, 
without any degradation. RACPU is normally unity assuming 
that all necessary information is included in the state vec- 
tor transfer operation. 


1-10 

IDLYRC 

Delay reconfiguration 

INTEGER 

11-20 

RCDUR 

Recovery duration 

REAL 

21-30 

RCCINT 

Recurrence interval 

REAL 

31-40 

DLYCPU 

Effectiveness 

REAL 


1: This recovery technique is used instead of rollahead/ 

rollback. 

0: This recovery technique is not used. 

The recovery action is delayed until the second detection of 
a fault. Thus transients, that do not result in any perma- 
nent damage to data or programs, do not cause system degrada- 
tion. 

RCDUR is the time in milliseconds required for this recovery 
procedure. It thus represents the overhead caused by the 
occurrence of a fault. 
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COLUMN 


PARAMETER 

NAME 


PARAMETER DESCRIPTION 


DATA 

TYPE 


RCCINT 

DLYCPU 
CARD 9 

I ROLL B 


MAXRLB 
RBCPU 
CARD TO 


RCCINT is the duration in milliseconds for which another 
detection of a fault in a computer will cause a system 
degradation. For example, if it is known that most 
transient faults should become inactive within two minor 
cycles and the minor cycle duration is 40 milliseconds, 
RCCINT would be 80 milliseconds. 

The probability that a transient fault which does not 
cause program memory damage is corrected by this recovery 
procedure. 


1-10 

IROLLB 

Rollback indicator 

INTEGER 

11-20 

MAXRLB ■ 

Maximum number of consecutive roll- 
backs 

INTEGER 

21-30 

RBCPU 

Rollback effectiveness 

REAL 


0: No rollback. 

1: Rollback. Rollback is a transient recovery procedure 

in which the occurrence of a fault causes the program seg- 
ment in which it occurred to be re-executed. Suppose a 
transient fault occurs during the execution of a program 
and corrupts a calculation which is detected at a compari- 
son point. The computer would then "rollback" to the pre- 
vious comparison point, using the old data, and re-execute 
the program segment in which the fault occurred. If the 
fault was a transient and has disappeared then the program 
segment will execute properly and system operation will con- 
tinue without degradation. In order to keep sync, all 
computers must "rollback", even the ones in which no fault 
occurred. The rollback duration is assumed to be equal to 
the inter-comparison time. If rollahead is specified, 
rollback is used only in duplex and simplex. If IDLYRC is 
one, rollahead and rollback are not used. 

MAXRLB specifies the maximum allowed number of consecutive 
rollbacks. Thus if the first rollback does not succeed 
the computer rollbacks again if MAXRLB is greater than one, 

RBCPU is the probability that because of a rollback, a 
transient fault will not result in any system degradation. 


1-10 

IDESCR 

Memory copy indicator 

INTEGER 

11-20 

DURMC 

Memory copy duration 

REAL 

21-30 

RMC 

Memory copy recurrence interval 

REAL 

31-40 

PSMC 

Memory copy effectiveness 

REAL 
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COLUMN 


PARAMETER 

NAME 


PARAMETER DESCRIPTION 


DATA 

TYPE 


IDESCR 


DURMC 


RMC 


PSMC 


CARD 11 


I START 


DURRES 


0: No memory copy 

1: Memory copy 

Memory copy is used as a secondary transient recovery 
procedure in multiplex computer operation if the primary 
recovery procedure fails. The memory of the working 
computer is transferred to that of the "faulty" computer. 
Ideally this would be done on a low-priority cycle-stealing 
basis by ROM BCE-programs residing in the lOPs and would 
not significantly affect computer performance. Upon 
completion of the memory copy, the state vector of a 
working computer would be DMA-burst transferred to the 
faulty computers, and all computers would continue in step. 
Memory transients usually result in memory damage because 
the memory is core destructive-read-out. Thus if a tran- 
sient in a memory sense-amp results in faulty data, this 
faulty data is written back into memory on the write-cycle. 
Usually this type of fault is not corrected by other recovery 
procedures, but is corrected by memory copy. 

DURMC is the time in milliseconds between memory copy initia- 
tion and memory copy completion. For example, if on the 
average one word is^ transferred per millisecond, then DURMC 
would be 65536 milliseconds for a 64K memory (slightly more 
than one minute). DURMC is specified in milliseconds. 

RMC is the memory copy recurrence interval in milliseconds. 

If a fault occurs within RMC milliseconds in a computer after 
recovery by memory copy in the previously faulty computer, it 
is assumed to be a re-detection of an earlier fault and system 
degradation occurs. 

PSMC is the probability that a memory copy succeeds in cor- 
recting a transient fault, so the fault doesn't result in 
system degradation. 


I- 10 I START System restart indicator INTEGER 

II- 20 DURRES Duration of system restart REAL 

0: No system restart. 

1: System restart. 

System restart is invoked upon the occurrence of faults in 
all computers, or in all computers except one. In this case, 
the system is re-initialized and the program memories are 
verified before normal operation continues. If the system 
restart lasts too long, the system fails. 

DURRES represents the duration in milliseconds of a system 
restart. 


REPRODUCIBILrrY OF THE 
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CARD 12 
DELAY 

TC 

CARD 13 

DIAGN 

DETMAX 

TW2 

CARD 14 

PDET, PDM 
PDETIO 

CARD 15 


PARAMETER 

COLUMN NAME PARAMETER DESCRIPTION 


DATA 

TYPE 


I- 10 DELAY Delay before transient recovery REAL 

II- 20 TC Time between REAL 


In order that transient faults may become inactive before 
transient recovery takes place, it is sometimes adviseable 
to delay the recovery several milliseconds. DELAY is the 
. time in milliseconds transient recovery is delayed after 
detection of a fault. 

TC is the time between inter-computer comparisons expressed 
in milliseconds. 


I- 10 DIAGN Average self-test duration REAL 

II- 20 DETMAX Self- test efficacy REAL 

21-30 TW2 Isolation duration REAL 

The self test program is a software routine that is run to 
determine if the computer is faulty. The time required to 
diagnose a computer as faulty varies depending on the loca- 
tion of the fault. IDAGN represents the average time (in 
milliseconds) required to detect the fault. 

DETMAX is the probability of detecting a fault by means of 
the STP program. 

TW2 is the time in milliseconds required for isolating a 
faulty computer when the system degrades from duplex to 
simplex. 


I- 10 PDET CPU fault detection probability REAL 

II- 20 PDM ' Memory fault detection probability REAL 

21-30 PDETIO I OP fault detection probability REAL 

These parameters represent the probability of detecting 
a fault in the respective units by means of BITE. (The 
built-in test equipment.) 


1-10 

RTI 

Iteration period 

REAL 

11-20 

MINCY 

Minor cycle duration 

REAL 

21-30 

MACY 

Number of minor cycles/major cycle 

INTEGER 

31-40 

DOWMAX 

Maximum downtime 

REAL 


B-8 



COLUMN 


PARAMETER 

NAME 


PARAMETER DESCRIPTION 


DATA 

TYPE 


RTI 

MINCY 

MACY 

DOWMAX 

CARD 16 

PROMM 
PSUC 
CARD 17 

ISYNC 
RATI NT 


RTI is the iteration period in mill i seconds for the control 
loop calculations. 

MINCY is the minor cycle duration in milliseconds. For 
example, for the Shuttle, MINCY is 40 milliseconds. 

MACY is the number of minor cycles per major cycle. 

DOWMAX is the maximum allowable down time in milliseconds 
before a safety-critical failure occurs. 


I- 10 PROMM Relative size of minor cycle program REAL 

II- 20 PSUC Program survivability REAL 

PROMM is the quotient size of minor cycle program over the 
total number of memory words. It is used for estimating 
the time required for detection of a fault. 

PSUC represents the probability that the program survives 
when a memory fault occurs. 


I- 10 ISYNC Synchronous/asynchronous executive INTEGER 

II- 20 RATINT Interrupt rate REAL 

0: Asynchronous scheduling 

1; Synchronous scheduling 


RATINT is the average number of interrupts that occur per 
second. 



THIS PAGE INTENTIONALLY LEFT BLANK 
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PRECEDING PAGE BLANK NOT 


B.1.2 INPUT PARAMETERS - GROUP 2 


COLUMN 

PARAMETER 

NAME 

PARAMETER DESCRIPTION 

DATA 

TYPE 

1 

DPER 

Permanent distribution type 

INTEGER 

2 

DTRA 

Transient distribution type 

INTEGER 

3 

DDUR 

Duration distribution type 

INTEGER 


DPER(I) "1" Specifies that permanent faults have an exponential 

interarrival time. (No other distributions are implemented). 


DTRA(I) "1” Specifies that transient faults have an exponential 

interarrival time. 

"2" Specifies that transient faults have a BURST distribu- 
tion. 


DDUR(I) "1" The duration of transient faults in Module-I is uniformly 

distributed. 

“2'' The duration is exponentially distributed. 


CARD 2 

1-10 RLAMDP(I) Permanent failure REAL 

RLAMDP(I) This parameter is the permanent failure rate per million 

hours for MODULE-I. 


CARD 2.1 

(Only if 1-10 RMUP(I) Spare dormant failure rate REAL 

NSPA?^0) 

RMUP(I) This parameter specifies the dormant failure rate per hour 

of a spare computer. This card must be excluded from the 
input deck i-f NSPA=0. 


CARD 3 





If 

1-10 

RLAMBDT(I) 

Transient failure rate 

REAL 

DTRA(I) 

=1 



* 


If 

' 1-10 

RLAMB(I) 

Burst rate 

REAL 

DTRA(I) 

11-20 

DURA(I) 

Average duration of a burst 

REAL 

=2 

21-30 

BURST(I) 

Transient fault rate during burst 

REAL 


The format of this card is dependent upon the value of DTRA(I). 
If DTRA(I)='l, then RLAMBDT is specified. If DTRA(I)=2, then 
RLAMB(I), DURA(I), and BURST(I) are specified. 
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COLUMN 


PARAMETER 

NAME 


PARAMETER DESCRIPTION 


DATA 

TYPE 


RLAMDT(I) 

RLAMB(I) 

DURA(I) 

BURST(I) 

CARD 4 
If 

DDUR{I) 

=1 


If 

DDUR(I) 

=2 

RMINI(I) 


AVDUR(I) 


The transient failure occurrence rate in faults per million 
hours . 

The transient burst rate in burst/million hours. 

The average duration of a transient burst in seconds. 

The transient fault rate during a burst. This is specified 
in faults/second. 


-10 

RMINI(I) 

Minimum 

transient 

duration 

, REAL 

1-20 

RMAXI(I) 

Minimum 

transient 

duration 

REAL 

-10 

AVDUR(I) 

Average transient duration 

REAL 


RMINI(I) and RMAXI(I) are specified if the transient 
duration is modeled as being uniformally distributed. 

They represent the minimum- and maximum durations in milli- 
seconds of transient faults. 

AVDUR(I) is specified only if the transient duration is 
modeled as being exponentially distributed. In this case 
AVDUR(I) represents the average transient duration in 
milliseconds. 
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B.1.3 


INPUT PARAMETERS - GROUP 3 


PARAMETER DATA 

CARD 1 COLUMN , NAME PARAMETER DESCRIPTION TYPE 

1-10 NBTU Number of bus terminal units INTEGER 

NBTU This parameter specifies the number of devices interfaced 

directly with the flight critical buses. For the current 
simulator implementation it should be specified as "10." 


CARDS 2-9 


1-2 

FCB(I,1) 

Interface 

between 

bus -I 

and 

DDU- 

■1 

INTEGER 

3-4 

FCB(I,2) 

Interface 

between 

bus -I 

and 

DDU- 

•2 

INTEGER 

5-6 

FCB{I,3) 

Interface 

between 

bus -I 

and 

MDM 

FF-1 

INTEGER 

7-8 

FCB{I,4) 

Interface 

between 

bus -I 

and 

MDM 

FF-2 

INTEGER 

9-10 

FCB(I,5) 

Interface 

between 

bus -I 

and 

MDM 

FF-3 

INTEGER 

11-12 

FCB(I,6) 

Interface 

between 

bus -I 

and 

MDM 

FF-4 

INTEGER 

13-14 

FCB(I,7) 

Interface 

between 

bus -I 

and 

MDM 

FA-1 

INTEGER 

15-16 

FCB(I,8) 

Interface 

between 

bus -I 

and 

MDM 

FA-2 

INTEGER 

17-18 

FCB (I, 9) 

Interface 

between 

bus -I 

and 

MDM 

FA-3 

INTEGER 

19-20 

FCB(I,10) 

Interface 

between 

bus -I 

and 

MDM 

FA-4 

INTEGER 


FCB FCB is a matrix that describes the interface between the 

flight critical buses and the bus terminal units (MDMs and 
DDUs). A matrix element is defined by: 

^ 0 if BUS-I is not interfaced with BTU-0 

FCB(I,J) = ) 1 if BUS-I and BTU-J have an active interface 

/ 2 if BUS-I and BTU-0 have a "secondary" inter- 
^ face 


An interface is considered to be active if the bus is connected 
to the BTU's primary port. An interface is. secondary if the bus 
is connected to the BTU's backup port. Eight cards are needed 
to specify the FCB matrix. The interface for bus -I is de- 
fined on card I+l. 


CARD 10 


1-2 

BTUTYP(l) 

BTU -1 

identifier =1 

INTEGER 

3-4 

BTUTYP(2) 

BTU -2 

identifier =1 

INTEGER 

5-6 

BTUTYP(3) 

BTU -3 

identifier =2 

INTEGER 

7-8 

BTUTYP(4) 

BTU -4 

identifier =2 

INTEGER 

9-10 

BTUTYP(5) 

BTU -5 

identifier ~2 

INTEGER 

11-12 

BTUTYP{6) 

BTU -6 

identifier -2 

INTEGER 

13-14 

BTUTYP(7) 

BTU -7 

identifier =3 

INTEGER 

15-16 

BTUTYP(8) 

BTU -8 

identifier =3 

INTEGER 

17-18 

BTUTYP(9) 

BTU -9 

identifier =3 

INTEGER 

19-20 

BTUTYP(IO) 

BTU -10 identifier =3 

INTEGER 


R_r^ 



COLUMN 


PARAMETER 

NAME 


PARAMETER DESCRIPTION 


DATA 

TYPE 


BTUTYP 

CARD n 

NDDUDV 

CARDS 12- 

1 = 1,2 

DDUDV 

CARD 14 
NDFFDV 

CARDS 15 
1=1,4 


BTUTYP is a vector that specifies whether a bus terminal 
unit is a DDU, a FF MDM, or a FA MDM. 

I 0 - BTU I is a DDU 

BTUTYP(I) = < 1 - BTU I is a FF-MDM 

( 2 - BTU I is a FA-MDM 

The nominal values of BTUTYP for the baseline configuration 
are listed along with each element description- 


1-10 NDDUDV Number of DDU devices INTEGER 

NDDUDV is the number of devices interfaced to the GPCs by 
means of the DDUs. The maximum value of NDDUDV is 4. 


13 


1-2 

DDUDV(I,1) 

DDU -I 

device 

3-4 

DDUDV(I,2) 

DDU -I 

device 

5-6 

DDUDV(I,3) 

DDU -I 

device 

7-8 

DDUDV(I,4) 

DDU -I 

device 


1 interface INTEGER 

2 interface INTEGER 

3 interface INTEGER 

4 interface INTEGER 


This matrix specifies which devices are connected to the 
dedicated display units. 

! 0 - DDU -I does not control device of type -J 
1 - DDU -I does control device of type -J 
Two cards are required to specify DDUDV. 


1-10 NDFFDV Number of dedicated FF-MDM devices INTEGER 


This parameter indicates the number of distinct devices 
dedicated to at least one of the FF MDMs. Should be less 
than 7. 


18 


1-2 

3-4 


5-6 


DFFDV(I,1) FF MDM I 
face 

DFFDV(I,2) FF MDM I 
face 

DFFDV(I,3) FF MDM I 
face 


- dedicated device 

- dedicated device 

- dedicated device 


-1 inter- INTEGER 

2 inter- INTEGER 

3 inter- INTEGER 
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DFFDV 

CARD 19 
NNFADV 

CARD 20 

NFFADVS 

CARD 21 
NDFADV 

CARDS 22 


COLUMN 

PARAMETER 

NAME 


PARAMETER DESCRIPTION 


DATA 

TYPE 

7-8 

DFFDV (I, 4) 

FF MDM 
face 

I - dedicated 

device 4 

i nter- 

INTEGER+ 

9-10 

DFFDV(I,5) 

FF MDM 
face 

I - dedicated 

device 5 

inter- , 

INTEGER 

11-12 

DFFDV(I,6) 

FF MDM 
face 

I - dedicated 

device 6 

i nter- 

INTEGER 


This array specifies the devices that are dedicated to the 
flight forward MDMs. Each element of the array can take on 
a value of zero or one {see above description of DDUDV). 

Four cards are required to specify DFFDV. The devices inter- 
faced with MDM FF-I are specified on card 14+1. 


1-10 NNFADV Number of non-dedicated FF MDM devices INTEGER 


This specifies 
faced with the 
fied. For the 


the number of non-dedicated devices inter- 
FF MDMs. A maximum value of 4 can be speci- 
baseline system there are four devices. 


1-2 

NFFDVS(l) 

Number of type 1 devices 

INTEGER 

3-4 

,NFFDVS{2) 

Number of type 2 devices 

INTEGER 

5-6 

NFFDVS(3) 

Number of type 3 devices 

INTEGER 

7-8 

NFFDVS(4) 

Number of type 4 devices 

INTEGER 


The non-dedicated devices are assumed to be interfaced with 
MDMs FFl - FF3. NFFDVS{I) indicates the number of redundant 
FF-MDM devices of type -I. 


1-10 NDFADV Number of FA MDM devices INTEGER 

NDFADV is the number of devices connected to each of the 
- flight aft MDMs. A maximum of three devices can be connected 
to the FA-MDMs. The baseline configuration uses two. 




1-2 

DFADV(I,1) 

MDM 

FA- I, device 

1 

connection 

INTEGER 

3-4 

DFADV(I,2) 

MDM 

FA- I, device 

2 

connection 

INTEGER 

5-6 

DFADV(I,3) 

MDM 

FA- I, device 

3 

connection 

INTEGER 
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DFADV 
CARD 26 

BUSNM 

CARD 27 

MDDUNM 
CARD 28 

MFFNM 
CARO 29 


*CHAR is 


PARAMETER 
COLUMN NAME 


DATA 

PARAMETER DESCRIPTION TYPE 


DFADV specifies the interconnections and redundancy of 
the flight critical devices interfaced to the FA MDM 
equipment buses. Four cards are required to specify DFADV; 
the devices interfaced with MDM FA -Is equipment bus is 
specified on card 21+1. 


1-10 

BUSNMO) 

"FC 

- BUS 1" 

CHAR* 

11-20 

BUSNM(2) 

"FC 

- BUS 2" 

CHAR 

21-30 

BUSNM (3) 

"FC 

- BUS 3" 

CHAR 

31-40 

BUSNM (4) 

"FC 

- BUS 4" 

CHAR 

41-50 

BUSNM (5) 

"FC 

- BUS 5" 

CHAR 

51-60 

BUSNM(6) 

"FC 

- BUS 6" 

CHAR 

61-70 

BUSNM(7) 

"FC 

- BUS 7" 

CHAR 

71-80 

BUSNM(8) 

"FC 

- BUS 8" 

CHAR 


BUSNM is a vector of names which are listed on printouts to 
identify the main bus parameters and data. For the Shuttle 
simulator BUSNM should be set to the names listed in the 
parameter description area. This parameter affects only the 
simulator listing. 


1-10 MDOUNMO) 

"DDU 1" 

CHAR 

n-20 MDDUNM{2) 

"DDU 2" - 

— CHAR 

MDDUNM contains 

names for the first two BTUs. 

They are used 

to identify the 

DDUs on the output listing. 



1-10 

MFFNM(l) 

"MDM FF-1" 

CHAR 

11-20 

MFFNM(2) 

"MDM FF-2" 

CHAR 

21-30 

MFFNM(3) 

"MDM FF-3" 

CHAR 

31 -40 

MFFNM(4) 

"MDM FF-4" 

CHAR 


MFFNM contains names for identifying the flight forward MDMs 
on the simulator listing. 


1-10 

MFANM(l) 

"MDM FA-1" 

CHAR 

11-20 

MFANM(2) 

"MDM FA-2" 

CHAR 

21-30 

MFANM{3) 

"MDM FA-3" 

CHAR 

31-40 

MFANM{4) 

"MDM FA-4" 

CHAR 


short for character. 
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COLUMN 


PARAMETER 

NAME 


PARAMETER DESCRIPTION 


DATA 

TYPE 


NFANM 
CARD 30 

DDUNM 
CARD 31 

DFFNM 
CARD 32 

NFFNM 
CARD 33 

DFANM 


This card specifies the names, to be printed on simulator 
listings, for the flight aft MDMs. 


1-10 

DDUNM(l) 

"AVVI" 

CHAR 

11-20 

DDUNM{2) 

"AMI" 

CHAR 

21-30 

DDUNM(3) 

"HSI" 

CHAR 

31-40 

DDUNM(4) 

"ADI" 

CHAR 


DDUNM is a vector of 10 character names used to identify the 
devices interfaced with the DDUs on simulator output listings. 
The parameter description above give the names used for the 
baseline configuration. 


1-10 

DFFNM(l) 

"ADTA" 

CHAR 

11-20 

DFFNM(2) 

"ACCEL" 

CHAR 

21-30 

DFFNM(3) 

"IMU" 

CHAR 

31-40 

DFFNM (4) 

"TACAN" 

CHAR 

41-50 

DFFNM(5) 

"MSBLS" 

CHAR 

51-60 

DFFNM(6) 

"RALT" 

CHAR 


DFFNM contains the identification names for the FF-MDM dedi- 
cated devices. They are used for simulator listings. 


1-10 

NFFNM(l) 

"MTU" 

CHAR 

11-20 

NFFNM(2) 

"RHC" 

CHAR 

21-30 

NFFNM(3) 

"RPTA" 

CHAR 

31-40 

NFFNM(4) 

"SBTC" 

CHAR 


NFFNM contains the identifications for the non-dedicated FF- 
MDM devices. 


I- 10 DFANM(l) "ASA" CHAR 

II- 20 DFANM(2) "RGYRO" CHAR 

This ca’rd specifies names for identifying the devices connected 
to the FA-MDMs. 
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CARD 34 

BUSTFL 
BUSCOV 
CARDS 35- 

BTUTFL 

BTUCOV 

CARD 45 

DDUTFL(I) 
CARD 46 

DDUCOV 


PARAMETER DATA 

COLUMN NAME PARAMETER DESCRIPTION TYPE 


I- IO BUSTFL Bus transient fault leakage REAL 

II- 20 BUSCOV Bus coverage REAL 

The bus transient fault leakage represents the probability 
that a transient fault on the bus causes unnecessary bus 
removal . 

The bus coverage is the probability that a bus fault will not 
result in a system failure. 


44 


I- 10 BTUTFL(J,1) Transient leakage for BTU port REAL 

II- 20 BTUTFL(J,2) Transient leakage for BTU REAL 
21-30 BTUC0V(J,1) Coverage of BTU port fault REAL 
31-40 BTUC0V(J,2) Coverage of fault in whole BTU REAL 


BTUTFL is a matrix of the transient fault leakages for the 
DDUs and MDMs. BTUTFL (J,l) is the probability that a tran- 
sient fault causes system degradation given that it occurs 
in the redundant portion of BTU-0. BTUTFL (J ,2) the transient 
leakage for the non redundant portion of BTU-J. 

BTUCOV is a. matrix of fault coverages. The first column of 
BTUCOV contains coverages for failures in the redundant part 
of an MDM or DDU {i.e. the MIA, A/D, SCI, etc.). The second 
column specifies the coverages for the non redundant part of 
a BTU. Ten cards are required to specify the leakages and 
coverages for all the BTUs. BTU J is specified by card 84+J. 


I- 10 DDUTFL(l) Transient fault leakage for AVVI REAL 

II- 20 DDUTFL(2) Transient fault leakage for AMI REAL 
21-30 DDUTFL(3) Transient fault leakage for HSI REAL 
31-40 DDUTFL(4) Transient fault leakage for ADI REAL 


This parameter specifies the transient fault leakage for 
device -I of a DDU. It should be, a number between zero and 
one. 


1-10 

DDUCOV(l) 

Coverage for fault in 

AVVI 

REAL 

11-20 

DDUC0V(2) 

Coverage for fault in 

AMI 

REAL 

21-30 

DDUC0V(3) 

Coverage for fault in 

HSI 

REAL 

31-40 

DDUC0V(4) 

Coverage for fault in 

ADI 

REAL 


DDUCOV (I) is the coverage for faults occurring in DDU device 
-I. The coverage represents the probability that if a fault 
occurs in a DDU device and its redundant counterpart if working, 
then the system will recover. 
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COLUMN 


PARAMETER 

NAME 


PARAMETER DESCRIPTION 


DATA 

TYPE 


CARDS 47-48 


1-10 

DDUTFD(I,1) 

AVVI 

transient fault detectability 

REAL 

11-20 

DDUTFD(I,2) 

AMI 

transient fault detectability 

REAL 

21-30 

DDUTFD(I,3) 

HSI 

transient fault detectability 

REAL 

31-40 

DDUTFD{I,4) 

ADI 

transient fault detectability 

REAL 


DDUTFD The transient fault detectability is defined as the probability 

that a transient fault is detected given that it occurs. Two 
cards are required. The first card specifies the transient 
detectability of a DDU device not having a redundant counter- 
part (i.e. its redundant counterpart has failed). The second 
card specifies the transient fault detectability for a device 
having one redundant counterpart. 


CARD 49 


1-10 

DFFTFLO) 

ADTA transient fault leakage 

REAL 

11-20 

DFFTFL (2) 

ACCEL transient fault leakage 

REAL 

21-30 

DFFTFL (3) 

IMU transient fault leakage 

REAL 

31-40 

DFFTFL (4) 

TACAN transient fault leakage 

REAL 

41-50 

DFFTFL{5) 

MSBLS transient fault leakage 

REAL 

51-60 

DFFTFL (6) 

RALT transient fault leakage 

REAL 


DFFTFL This parameter specifies the transient fault leakages for 

each of the FF-MDM dedicated devices. 

CARDS 50-52 


1-10 

DFFC0V{1,J) 

ADTA fault coverage 

REAL 

11-20 

DFFC0V(2,J) 

ACCEL fault coverage 

REAL 

21-30 

DFFC0V(3,J) 

IMU fault coverage 

REAL 

31-40 

DFFCOV (4, J) 

TACAN fault coverage 

REAL 

41-50 

DFFCOV (5, J) 

MSBLS fault coverage 

REAL 

51-60 

DFFCOV ( 6, J) 

RALT fault coverage 

REAL 


DFFCOV This parameter specifies the permanent fault coverages for 

the dedicated FF-MDM devices at each of their possible 
redundancy levels. Three cards are required to specify 
DFFCOV. Card 50 lists the coverages for a fault occurring 
when there are two devices; Card 51 lists the coverages 
when there are three redundant devices; and Card 52 lists 
the coverages when there are four redundant devices. 
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PARAMETER DATA 

COLUMN NAME PARAMETER DESCRIPTION TYPE 

CARDS 53-56 

I- 10 DFFTFD(1,J) ADTA transient fault detectability REAL 

II- 20 DFFTFD(2,J) ACCEL transient fault detectability REAL 

21-30 DFFTFD(3,J) IMU transient fault detectability REAL 

31-40 DFFTFD(4,J) TACAN transient fault detectability REAL 

41-50 DFFTFD(5,J) MSBLS transient fault detectability REAL 

51-60 DFFTFD(6,J) RALT transient fault detectability REAL 


DFFTFD This parameter lists the transient fault detection proba- 

bilities for faults occurring in the dedicated devices. 

Four cards are required to specify the DFFTFD array. Card 
53 specifies the transient fault detectability for a device 
having no redundant counterparts left. Card 54, Card 55 and 
Card 56 specify the transient fault detectionwhen there are 
one, two or three redundant counterparts to the device left. 


CARDS 57-58 


1-10 

NFFTFL 0,0) 

MTU transient fault leakage 

REAL 

11-20 

NFFTFL (2,0) 

RMC transient fault leakage 

REAL 

21-30 

NFFTFL(3,0) 

RPTA transient fault leakage 

REAL 

31-40 

NFFTFL(4,0) 

SBTC transient fault leakage 

REAL 


NFFTFL Card 57 specifies the transient fault leakages for a transient 

fault affecting the whole unit. Card 58 specifies the tran- 
sient fault leakages for transient faults affecting the re- 
dundant portion of ithe non-dedicated FF-MDM devices. 


CARDS 59-60 


I- 10 NFFTFD(1,J) Transient fault detection for MTU REAL 

II- 20 NFFTFD(2,J) Transient fault detection for RMC REAL 
21-30 NFFTFD(3,J) Transient fault detection for RPTA REAL 
31-40 NFFTFD(4,J) Transient fault detection for SBTC REAL 


NFFTFD Card 59 specifies the transient fault detection probability 

for faults affecting the whole unit. Card 60 specifies the 
transient fault detection probability for faults affecting 
the redundant part of each unit. 


CARD 61 

I- 10 NFFPFD(l) Permanent fault detectability for MTU REAL 

II- 20 NFFPFD(2) Permanent fault detectability for RMC REAL 

21-30 NFFPFD(3) Permanent fault detectability for RPTA REAL 

31-40 NFFPFD(4) Permanent fault detectability for SBTC REAL 

NFFPFD This card specifies the permanent fault detection probability 

for faults affecting the entire device. 
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CARD 62 

NFFCOV 
CARD 63 

DFATFL 
CARD 64 

DFATFD 
CARD 65 

DFACOV 


COLUMN 

PARAMETER- 

NAME 

PARAMETER DESCRIPTION 

DATA 

TYPE 

1-10 

NFFCOV(l) 

MTU fault coverage 

REAL 

11-20 

NFFC0V{2) 

RMC fault coverage 

REAL 

21-30 

NFFC0V(3) 

RPTA fault coverage 

REAL 

31-40 

NFFC0V(4) 

SBTC fault coverage 

REAL 


This card specifies the permanent fault coverage for each 
of the non-dedicated devices interfaced with the FF-MDMs. 


I- 10 DFATFL(l) ASA transient fault leakage REAL 

II- 20 DFATFL(2) RGYRO transient fault leakage REAL 

This card specifies the transient fault leakages for the 
devices interfaced to the FA-MDMs. 


I- 10 DFATFD(l) ASA transient detectability REAL 

II- 20 DFATFD(2) RGYRO transient detectability REAL 

DFATFDp) and DFATFD(2) are the transient fault detection 
probabilities for the ASA and the RGYRO, respectively. 


I- 10 DFACOV (1) ASA fault coverage REAL 

II- 20 DFAC0V{2) RGYRO fault coverage REAL 

This card specifies the fault isolation-recovery coverages 
for faults occurring in the devices linked to the flight. 
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B.1.4 INPUT PARAMETERS - GROUP 4 


This section describes the input deck for the flight critical bus parti- 
tion failure rates. The units for all failure rates in this section is faults 
per million hours. All inputs are real FI 0.0 format. The same card set-up is 
used for both permanent and transient failure rates. 


CARD 1 COLUMN 


PARAMETER DESCRIPTION 


1-10 

Flight critical 

bus 

11-20 

Flight critical 

bus 

21-30 

Flight critical 

bus 

31-40 

Flight critical 

bus 

41-50 

Flight critical 

bus 

51-60 

Flight critical 

bus 

61-70 

Flight critical 

bus 

71-80 

Flight critical 

bus 


-1 failure rate 
-2 failure rate 
-3 failure rate 
-4 failure rate 
-5 failure rate 
-6 failure rate 
-7 failure rate 
-8 failure rate 


CARD 2 


1-10 

11-20 


DDU -1 failure rate (whole unit) 
DDU -2 failure rate (whole unit) 


CARD 3 

I- 10 DDU -1 failure rate (redundant portion) 

II- 20 ■ DDU -2 failure rate (redundant portion) 


CARD 4 


1-10 

11-20 

21-30 

31-40 


MDM FF-1 failure 
MDM FF-2 failure 
MDM FF-3 failure 
MDM FF-4 failure 


rate (whole unit) 
rate (whole unit) 
rate (whole unit) 
rate (whole unit) 


CARD 5 


1-10 

11-20 

21-30 

31-40 


MDM 

MDM 

MDM 

MDM 


FA-1 failure 
FA- 2 failure 
FA-3 failure 
FA- 4 failure 


rate (redundant portion) 
rate (redundant portion) 
rate (redundant portion) 
rate (redundant portion) 


CARD 6 


1-10 

11-20 

21-30 

31-40 


MDM FA-1 failure 
MDM FA-2 failure 
MDM FA-3 failure 
MDM FA-4 failure 


rate (whole unit) 
rate (whole unit) 
rate (whole unit) 
rate (whole unit) 
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CARD 7 COLUMN 


PARAMETER DESCRIPTION 


1-10 

n-20 

21-30 

31-40 


MDM FA-1 failure rate 
MDM FA-2 failure rate 
MDM FA-3 failure rate 
MDM FA-4 failure rate 


(redundant portion) 
(redundant portion) 
(redundant portion) 
(redundant portion) 


CARD 8 


I- 10 AVVI failure rate 

II- 20 AMI failure rate 
21-30 HSI failure rate 
31-40 ADI failure rate 


CARD 9 


1-10 

11-20 

21-30 

31-40 

41-50 

51-60 


ADTA failure rate 
ACCEL failure rate 
I MU failure rate 
TACAN failure rate 
MSBLS failure rate 
RALT failure rate 


CARD 10 

I- 10 MTU failure rate (whole unit) 

II- 20 RMC failure rate (whole unit) 

21-30 RPTA failure rate (whole unit) 

31-40 SBTC failure rate (whole unit) 


CARD 11 

I- 10 MTU failure rate (redundant portion) 

II- 20 RMC failure rate (redundant portion) 

21-30 RPTA failure rate (redundant portion) 

31-40 SBTC failure rate (redundant portion) 


CARD 12 

•1-10 ASA failure rate 

11-20 RGYRO failure rate 
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B.2 SIMULATOR LISTINGS 

The simulator is currently implemented as a set of fifty-eight Fortran 
programs designed to be compiled and run on a CDC 6600 using the extended 
Fortran IV compiler. Figure B.2-1 gives a short description for each of the 
programs. The source listings that follow this section represent the current 
CDC 6600 implementation of the program and will require several modifications 
for use in a UNI VAC 1108 computer environment. 

The simulator source listings are in the same order as the subroutine 
names in Figure B.2-1. Some of the programs are documented by comments that 
describe the program, its arguments, and many of the variables that are used 
for the simulation. All of the listings include a comprehensive cross refer- 
ence for all variables, statement labels, and subroutines. These are included 
in order that minor modifications to the programs can be readily made. The 
subroutines will be documented more thoroughly when the simulator is implemented 
on the UNIVAC 1108. 

Several routines must be modified before the simulator can be run on 
the UNIVAC 1108. These routines are identified with an in Figure 3.2-1. 

PACK and UNPACK must be modified since they require non standard intrinsic 
functions. FCBIN, PFCBCF, and PIOSTS must be modified since they currently 
use a 60 bit word to represent character data. In addition, two new functions 
RANF and RANSET will be added for the. UNIVAC 1108 implementation. These 
routines, which are used to generate random numbers uniformily distributed 
between zero and one, have already been written. 
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ROUTINE 


DESCRIPTION 


1. 

DRIVER 

2. 

ASYNC 

3. 

BUSCHK 

4. 

BUSFLT 

5. 

CLEAR 

6. 

CONFID 

7. 

COPY 

8. 

DDUFLT 

9. 

DETTIH 

10 . 

DFAFLT 

n. 

DFFFLT 

12. 

EXDUR 

13. 

EXPON 

14. 

EXTENT 

15. 

FAU6EN 

16. 

FCBFLT 

17. 

FCBIN 

18. 

FC8INI 

19. 

FCBPI 

20. 

FCBPMI 

21. 

FIFAU 

22. 

GATHER 

23. 

GIORFl 

24. 

GI0RF2 

25. 

GI0RF3 

26. 

GI0RF4 

27. 

GREATER 

28. 

INCOPY 

29. 

INFLTB 

30. 

10 

31. 

IRAN 

32. 

ISTEPD 

33. 

LESS 

34. 

MDHFLT 

35. 

HDMPF 

36. 

HISCYC 

37. 

MSTEPD 

38. 

NFFFLT 

39. 

*PACK 

40. 

*PFCBCF 

41. 

PFISO 

42. 

PIOCNF 

43. 

*PI0STS 

44. 

RDIOFR 

45. 

SETSTS 

46. 

STATEl 

47. 

STATE2 

48. 

STATE3 

49. 

STATE4 

50. 

STATE7 

51. 

STATES 

52. 

STATE9 

53. 

STATEA 

54. 

STATEB 

55. 

STATEC 

56. 

TFISO 

57. 

.UNIF 

58. 

UNPACK 


Main simulator program 

Generate pseudo faults in case of asynchronous executive 
Simulates an lOP caused bus failure 
Simulates a bus failure 
Initializes a vector to zero 

Generates a confidence interval for analytic model parameter 
estimates 

Copies a fault into the active fault table 
Simulates faults occurring in the AVVI, AMI, HSI, and ADI 
Randomly determines the detection time of a fault 
Simulates faults occurring in the ASA and RGYRO 
Simulates faults occurring in the ADTA, ACCEL, IHU, TACAN, 
MSBLS and RALT 

Randomly generates exponential duration for transient faults 
Generates a table of exponentially distributed fault 
occurrence times 

Determines if a fault causes program memory damage 
Generates faults for the simulation 
Simulates faults occurring in the flight critical bus 
partition 

Inputs the flight critical bus partition configuration 
parameters 

Initializes a mission for FCB simulation 
Initializes the FCB partition simulator variables 
Controls simulation when SIHTYP=2 
Determines the fault location 

Compresses active fault table after removal of faults 
FCB failure rate input subroutine 
FCB failure rate input subroutine 
FCB failure rate input subroutine 
FCB failure rate input subroutine 
Randomly determines if a fault is not covered 
Copies one vector to another for initialization 
Routine for inputting a hand determined fault table 
Simulates faults occurring in the lOPs when they are 
non -dedicated 

Determines a random integer betv/een 1 and X i 

Chooses random integer using probability distribution vector 
Randomly determines if a fault is covered 
Simulates the occurrence of a fault in an MDM or DDU 
Simulates the removal of an MOM or DDU 
Simulates the occurrence of missed iterations 
Same as ISTEPO, except row of matrix used as distribution 
function 

Simulates faults occurring in the MTU, RHC, RPTA, or 58TC 
Compresses a vector of five numbers into one number 
Prints the FCB partition configuration definition 
Randomly determines where a permanent fault in the FCB 
partition occurs 

Prints the FCB interconnection matrices 
Prints the FCB simulation results 
Reads FCB partition failure rates 
Sets a value into the FCB status vector 
Simulates normal multiplex GPC operation 
Simulates a rollahead, a rollback, or delay reconfiguration 
in multiplex 

Simulates a system restart 
Simulates normal duplex GPC operation 
Simulates a memory copy in multiplex 
Simulates roljback or delay-reconfiguration in duplex 
Simulates fault isolation in duplex 
Simulates simplex normal operation 
Simulates rollback in simplex 
Simulates GPC replacement by spare 
Randomly determines where a transient fault occurs in 
FCB partition 

Generates a uniformly distributed random number 
Undoes what PACK does 


*These routines will be modified for the UNIVAC 1108 implementation. 
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c 

C EXTEN 
FOCO 
lOFSCR 


ACFAU 

OUMONO 

COPLAS 

OeLAY 

OOHMAX 

OURHC 


PROGRAM ORIVERJINPUTfOUTPOT) 

THIS VERSION! MARCH 1976 

SEC STATFl 

01 OEOICATEO OUSSrS (TO COMPUTERS) 

It NON-OEDICATED BUSSES 

LAST TIME THERE HAS A MEMORY COPY FOR COMPUTER I 
OELAY OETHEEM DETECTION AND RECOVERY (MlLLtSECONOSI 
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DURATION OF A MEMORY-COPY (MILLISECONDS) 

OURRES SYSTEM RESTART DURATION 
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FAULTY COMPUTER 
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? WITHOUT MEMORY-COPY 

lOETEC SEE STATEl 
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C0MM0H/C037/ RHU 
COHHON/G030/IOOU(5t «MONDED«MUOIO 
C0HHnN/C03g/PDETT0 
COMMON/CO40/ISHI,FSHI.NGHI0N,NTO 
C0HM0N/r;n41/ IG A TA S, I 3 
C0MM0N/r:042/MISTKI 
C0HH0N/C045/PSMC 
OnHHON/C0467PCOH,PBy.PBUGO 

COHMON7COVER/ITLKP,IFME SP11APR4 

COHMOH/CYC/tAUNHT 

COHHOM/D/DIAGN 

GOHMON/OEflUG/IOEBOG 

COMMON /PE IF/PCE T, OETHAX* POM 

GQHHON/FXeC/MTNGY»RTl,TOOO.OLnS,IDl.E,SEQHAX,OOHMAX,HISlTE 

COHM0N/FAH.O2/FOC02 

COMMON /FCnUNT/MF(5),NTRFl5J 

COMHON/HH /PR OHM , M ACY 

COMHON/PEPH/LAST<5»,HIMINT,PSUC 

COHHON/PHItM3/NTR3,NTR2,NTRl *NTNR1 

COMMON /PAMEAD/RACPU 

COHHON/RBACK/R8CPIJ 

COHHON/FLIMIS/NFCVaOJ.NSYSFdOJ ,PFRIO,TFRlO 

COHMON/FLTHS/TFLTCT 

INTEGER EXTEN,PTR,REASONtSEQHAX 

INTEGER SIHTYP 

logical IOSIH 

OIMEMSION MFA1LH5J ,HISTSa(3) 

OIHFNSIOH NHC0NFt2,5» 

REAL IDLF,LAST,LAUNMI,MINCY,MININT 

C «•«•«*««« «««*«««*« »««««« *»«»*«*** *«*«*«v**»«*»«*v«v*«**«*»*»««»«*v 

C 

DATA NHnONF/5HSTHPL,2HEX,5HOUPLE,lMX»5HTRIPL.2HEX 
* ,5MQUA0R,5HUPLFX,5HQUINT,5HUPLEX/ 

IOIH=10 
10 CONTINUE 

READ 98l32,SIHTYPtSEED 
IF(SIHTYP.LE.D» GOTO 20 
CALL RANSFTISEEO) 

GOTO (100 0,20 00, 3000) , SIHTYP 
1080 CONTINUE 

read 9801,NMIS1,IDE«UG 
IF (NHI':i.LE,0) GO TO 20 
CALL CLEARCIO.NFCV) 

CALL CLrAR(l0,NSYSF» 

CALL CLFAR(5,NFAILn 
CALL CLEARO.MISTKI) 

CALL CLEAR(5,NF) 

CALL CLEAR(5,NTRF) 

COR=-l . 

DtOR=-l. 

FOCO=l.n SP02APR4 

FOC02=l. 

ICATftS=0 

TFAU=0 

IFULL=0 




\ 
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PAGE 


IOF = 0 

rsiM = 0 

ITLKP - 0 
13=0 

170 101=1 

MISITF=0 

HISTAKsO 

N01AG=0 

NFATL=0 

175 NFDANR = 0 

NFIO=0 
NFSIM = 0 
NHG = 0 
NQUA=n 

ISO HRES=a 

NPL = 0 
NROOA=0 
NS=0 
NTL = 0 

105 NTMR1=0 

NTR = 0 
NTRI=0 
NTR1=0 
NTR2 = 0 

190 NTR3 = 0 

NUNOI=0 
N2 = 0 

SFQMAX=D 

RFAD 9002,NUOLtC,RMI<5TH 
READ 9803,NMOOU,MOOSIM 
READ 9fl02.NSPA,r:oNDIT 
READ 9flO>;»NONOEO,NIO 
READ 9B12,PC0H, P0U 

read 9007 ,irolla,recov,hinint,racpu 

READ 9000 ,TOLYRR,RCDUR,RCCIMT»OLYCPU 
READ 98n9»IROLLD,HAXRLR,RBCPO 
READ 9610 »TnESCR.DURHC»RMn,PSHD 
READ 9802 ,ISTART,OURRES 
READ 9812, DELAY, TC 
READ 98n,niAGN,0ETHAX,TH2 
RFAD 9«n,P0ET, PDM,PDFTIO 
READ 9814, RTI, MINGY, HACY,OOHMAX 
READ 9B12,PR0MM,PSUC 
RFAD 9815,1SYNC,RATINT 
IFltOESCP .NE.il IOESCP=2 
I(1SIH= NMonU.GE.4 
IFIIOSIH) CALL FCniN 
IFdOSIHl CALL FC0PI 
NSP0=NSPA 
HnO=«ODSIM-N'>PA 
TFINOMOED.NE.?! NIO=MOOSIM 
1DLE=RTI-HTNGY 
OURPn=TC 

IFdDLYPC .NF.ll GOTO 601 


195 


200 


205 


210 


215 


220 


SP09APR4 

SP11APR4 


SP09APR4 

SP09APR4 


SP08APR4 

SP08APR4 



«'«or.PS*< 


OPItfFP 


cnc 6<>03 FtN V3.0-PJS5 OPr»l 


15.^9.55 


P4CE 


??5 


230 


?35 


?«ig 


?«.5 


?S0 


?55 


?60 


265 


?F0 


225 


»rcov«pr.oiii> 

HI HlMTiPCClHT 
9»CPVJ»riYCP0 
pncPu«ptYr.pi3 
nUR9P»«>f DUV 

IROUft'l 
r.OTO 8C5 
eol COHTIHUF 

irtlROLl n.FQ.ll GOTO 802 

HtxRt e>? 

OURROk 0.0 
GOTO 80S 
8C? COMTiMUr 

irtiRout.ea.n goto f<s 
|POUl*=? 

RfCOVt TC 
R8Cm>R0CP1l 
MIHIHT IRT I*M«CY 
8 65 CON r I MW 

: IF IHf CEMYS *»C OfnlC»TFP,»N ECN FSlJLT M8Y HIT THE COMPUTER. IF PBU 
C IS 0. them « F8ULI IN THE EEH AI.M8YS Hll THE COMPUTER (PCOM* POUCOn 1) . 

C IF THE EEMrS 8RC MON OEOICilFn, THEM HTEY NEVER 8FFECT 8 COMPUTER. PCOM 
C AMO PBUCO ARE 0. 
pnocos 0 

IFtMONnEn.EQ.ll POUCO: l.e-PfON-POU 
IF (MSPA.EO.Ot PRINT ROOD , ( MMCONF 1 1 »HOOI « 1 1: 1 , 2I 
IFIHSPA.ME.O) print Root , (MMCOMF It iMOOt « l3 1, 21 ,trSPA 
PRINT RR22.MMI5! 

PRINT RR2 3.RHI5 TH 
PRINT R022 

IFIItUYRn.Nr.il GOTO lODl 
PRINT 9R02 
PRINT RROT.RFCOV 
PRINT R90<i,NlHINT 
PRINT RR05.RACPU 
GOTO 1062 
lOCt nONTpjW 

lFIIRnuA.NF.il GOTO 1002 

PRINT 9<)0f> 

PRINT RR03.RFCOV 
PRINT RR04.NTNINT 
PRINT RR05.R«C»nJ 
1007 COMTINW 

If lin£ v.R.NE.l) GOTO 1003 
PPIMI RR0 7 
PRINT RR03.mjR*«C 
PRINT RRO'i.RHC 
PRINT RROR.OSMC 
t:pT CONTINUE 

If I IROLLR .NC . 1 1 GOTO tOOl. 

PRINT 9100 
PRINT 9109.M8XPLR 
PRINT R935,R'*CPU 
I0e«. CONTTNW 
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280 


285 


290 


295 


300 


305 


310 


315 


320 


325 


330 


PRINT 9910 
PRINT g903,OlJRRES 
PRINT 9911 
PRINT 9912, P$UC 
PRINT 9913, POET, PDH, POETIC 
PRINT 991A.D£TMAX,0IAGN 
PRINT 9915, DELAY 
PRINT 9916, TH2 

IFINSPA.NE.Ot PRINT 9917,C0NDIT 
PRINT 9918,RTI, HINCY,MACY,TC,OOHMAX,PROHH 
IFlISYNn.EQ.O) PRINT 9919.RATTNT 
IFINONOED.EQ.l) PRINT 9920 
IFINONDFO.EQ.ZI PRINT 9921, NIO 
PRINT 9924 

PRINT 9925,PC0H,PnU,PBUC0 
PPINT 9926 

RHISTM=36OOO0O.*RHIsrH 

NHIS=0 

NMIS0=O 

TIGEN=NnOUC*RMISTM 

C 

C GENERATE FAULTS FOR N80UD MISSIONS 
30 CONTINUr 

CALL FAUGENTHOOSIM,TIGEN,300,NM0DU) 

IF (NMISf NSPA.NE. OJ GO TO 56 
C COMPUTE DORMANT FAILURE RATE OF THE COMPUTER 
RHU=:RMUP( 1) 

IF (NH00U.GE.31 RMU=RHU1RMUP 1 3» 

56 CONTINUE 
33 CONTINUE 
C 

C OVERFLOW TEST 
PTR=1 

IF IIFULL.EQ.O) GO TO 40 
PRINT 9601 
GO TO 10 
C 

C DETERMINE IN WHICH MISSION THE FAULT OCCURS AND THE ENO OF THF MISSION 
C OETERHINF IF NEW FAULT TAPLE IS NFEDED. 

40 CONTINUF 

K=INT(TA9LE1PTR,1»/RMISTM) 

IF tX.GE.NHOUC) GO TO 41 

ENDMIS=K*RMISTH4RHISTM 

NMIS=NMISC4K 

IF INHIS.GE.HHISU GO TO 120 
60 TO 43 

41 CONTINUE 

NHISQ = NOOUC* (NMTS/NnoUCt 4N0OUC 
NHTS=NMrsO 

IF (NMIS.GE.HMISU GO TO 120 
GO TO 30 
C 

C INITIALIZE MISSION 
43 CONTINUE 
IFLTCT=0 



PROG»ft« 


DRIVER 


CDC 6600 FTN V3,0-P35S OPT=l OV/09/76 15.29.55 


PAGE 


7 


335 


3itD 


345 


350 


355 


360 


365 


370 


375 


380 


LAUNHT:=-iaOOn. 

MHORK=MOD 
NW0I0=NI0 
NSPB=NSPA 
DO 140 J=1,IDIH 
ACF 4U«Ji3)=0. 

140 CONTINUE 

DO 285 J=l»5 
UASTtI1=-iaO00. 

COPLAS (U =-10000. 

MOOM<n=0 

IF <r.tE.HODI NOON<n=l 

ispARFai=a 

IF a.LE.NSPA) ISPARFil)=HOO + I 
IF (NONOEO.NE.Z) 60 TO 2S5 
. IOCO«1»=0 

IF (I.LE.NHOIOI I0CIMI>=1 
285 CONTINUE 

IF(IOSIM) CALL FCOINI 
C 

c begin SIHULATION 

65 CONTINUE 

GO TO (241. 91.66. 66« 661 HOO 

66 CONTINUE 
C 

C TRIPLEX (NORMAL OPERATIOMl SP09APR4 

CALL STATEHnEXTI 
60 CONTINUE 

IF (IDEBUC.NE.l) CO TO 103 
IF (PTR.GE.50I GO TO 103 
PPIHT 962, PTR. NEXT. TIME 
DO 102 l=l,IOIM 

IF (ACFAUd.S) .EO.0.1 GO TO 103 
PRINT 985, (ACFAUCI, J).J=1,6J 

102 CONTINUF 

103 CONTINUF 

GO TO (65,70,60.90,1(10,45,210,220,230,240,250,2601 .NEXT 
70 CONTINUF 
C 

C roll AHEAD RECOVERY SP09APR4 

IF(IROLLA.EQ.G) L AST I FOCO » =T THE 
TIHE=TlNF+DELBy 
MRL=NRL+1 
CALL STATE2(NEXT> 

GO TO 60 
C 

C system RESTART SP10APR4 

no CONTINUE 

TFdSTART.EQ.l) GOTO 81 
ICATAS = ICATA':»1 
HfXT=5 
REASON=6 
GOTO 60 
81 CONTINUF 
NRE$=NRFSd 




585 
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390 


795 


400 


405 


410 


415 


420 


425 


430 


435 


440 


CALL STATESCNEXn 
GO TO 60 
C 

C DUPLEX (NORMAL OPERATION) 

90 CONTINUE 
N2=N2+1 
91 CONTINUE 

CALL STATE4 (NEXT) 

GO TO 60 
C 

C SYSTEM FAILURE 

100 CONTINUF 
MEXT=6 

IF (lOEDUG.NE.l) CD TO 101 
PRINT 988 .PTR.REASON, TIME 

101 r.ONTINUE 
NFAIL=NFAIL+1 

C SEE OFFINITION OF REASON 

GO TO (85, 160, 170, 18B,190«B4» .REASON 
C 

85 CONTINUE 

PRINT 991.NHIS 
GO TO 50 
160 CONTINUE 

NFIO=NFIO+l 
GO TO 50 
170 CONTINUE 

NSYSF(rFLTCn=NSYSF(TFLTCT> + l 
NFCV(IFLTCn=NFCV(lFLTCT) U 
IOF=IOF»l 
GO TO 50 
160 CONTINUF 

NFOAMR = NFOANR ♦ 1 
GO TO 50 
190 CONTINUE 

NFSIM = NFSIM ♦ 1 
GO TO 50 
84 CONTINUF 

NFAILI (NUORK) = NFAILI (NHORK> H 
NTL=NTL+1 
50 CONTINUE 

IF (TABLE (PTR,1).GE.ENDMIS) GO TO 40 
PTR=PTR+1 
GO TO 50 
C 

45 CONTINUE 

lEdFLTCT .GEai NFCV IIFLTCTJ -NFCV(IFLTCT) ♦! 

GO TO 40 
C 

C MEMORY COPY RECOVERY 
210 CONTTNUr 

C THE NUHOER OF ROLLAHEAOS IS DECREASED SINCE A MEMORY COPY IS ALWAYS 
C PPECEPEO OY A OUHMY ROLL AHEAD. 

NRL=NRL-1 

C IF NO MEMORY COPY IN THIS CONF IMGURAT I ON DON T 00 IT 


SP09APR4 


SP03APR4 


SP09APR4 


SP29APR4 


SP09APR4 

SP09APR4 

SP09APR4 

SP09APR4 

SP09APR4 


SP09APR4 


SP09APR4 



P90CRAH 
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IF nnc«ir«.Eo. ?i roPHsiFocoi-xiMc 
NHCiNNC*! 

r.*Ll. SttTFMMf.xn 
GO ro 60 

fcS5 C 

C ROLLOtCK RfCOVfRY 
323 COHriNUf 

TFIN«Xtn.i).Gf .11 'IROtli'MROP** 1 
C»LL SIOTESIMEXII 

<•^0 IF 1H6 XT.E'l.iil Il2el<?>l 

CO TO 60 
G 

C OIAGHOSTICS *110 9FC0WFRT 
230 GOHTIMUF 

«iS^ HOI6G-. »ni*c*l 

C*Ll ST«TC9(tlfXn 
GO TO 60 
C 

r, siHPirx ST«i£ 

‘•6C 2«i0 COHtiHUF 

ISTM » ISTH * 1 

261 CONflNU*: 

r.iLL ST*Tt»(»lfXn 
GO TO 69 

66S C 

C POU B»CK INS INPLf X 

250 nONtlNttf 

iF(Hax»in.ce.i I GOTO ?si 

NEXT. 5 

6F0 9CASnNrS 

GOTO 60 

251 COMtIllur 

' C*lt SiaTEUNFXTl 

IF (NExr.EQ.m ISI*1"ISIH-1 
6F5 CO TO 69 

n 

C iNTPonuOE SP*pr 
265 rOHTINUr 
NS"NS * 1 

600 Cf-LL STiTfCl'lFXTI 

GO TO 60 
123 COHTlNltr 
PPIHT 963" 

MPF9H3 ir«ll-NT9 

696 point 9695«Hpr9H,NT9, iraUfivaiL 

P9INT 9610 

GOTOIt 105.1106, 1103. 1102. lion .NOD 
MCI HPC9Ki:HriSl-NT9FI5l 

P»1MT 961 l.Nm "H.firRr C5) ,t»F(5) 

690 1132 •1'’ER'<‘ ‘P" « 61 -?tT»F M.J 

PPIHT 9t.l2.HPf RH.NT9F (61 ,NF(6I 
11C3 HPf9H->P’(3|.NT9r|3l 

PPIHT 961 1,’JPl »rt, NT K I 3) ,HF ( 3t 
1106 MPr9H;N<12|.NfPF (21 

PVIHT 9t.Hi,HPri»H,Hri>F I 2 I , Ilf I 2 1 


$P096PR6 


SP09«PRt, 

SP09APP6 

SPa9*PR6 

SP096PP6 

SP0aAPR6 

SP3"*PR6 

SP99APR6 


6 95 
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500 


505 


51Q 


515 


520 


525 


530 


535 


540 


545 


550 


1105 NPERM=NF( 1I-NTRF(1J 

PRINT q4l5tNPfRH,NTRF«l> ,NFtl) 

PRINT 9420 
NQUINT=0 

GOTOllllO ,1109,4100, 1107, 1106 » ,HOO 

1106 PRINT 941 l.NFATLI (51 ,MISTK1C3I tNOUINT 

1107 PRINT 9412,NFAIL1 (41 ,KISTKI(2) ,NOUA 

1108 PRINT 9413,NF«ItI(31 ,MISTKI(11 ,NTRI 

1109 NnUPFL=NFAILI(21*NFDANR 
PRINT 9414,NmiPFL,lTLKP,N2 

1110 PRINT 9415,MFSrM,NTNRl,ISIH 
PRINT 94?5 

IFdDLYRC.NE.ll GOTO 1120 
NDELAY=MROnAi-NPL 
PRINT 9426,N0ELAY 
GOTO 1130 
1120 CONTINUF 

IFdROLLA .EO.ll PRINT 9427, NRL 
IFdROLLP.NE.ll GOTO 1130 
IFdROLLA.NE.il NROBA = NROOAfN°L 
PRINT 9428,NROOA 
1130 continue 

IFdOESCR.EO.il PRINT 9429, NMC 
IFdSTART .EO.ll , PRINT 9430, NRES 
PROP=MISITF/ fRHISTH*NHIS17RTIl 
PRINT 9435, PROP, SFQM AX 
IF(NSPA.ME. 01 PRINT 9431, NS 
ZC=2.0 

CALL CONFin(ZC,NFAIL,HHISl,SFP,SFPERR> 

CALL COt(FIO(2C, HISTAK,NTR3tHISTAK,XLFK,XLEKl) 

CALL CONFIfKZC, ITLKP,NTR2 + ITLKP,DUPLK,DUPLK1) 

CALL CONFIO(ZC, NTNRl , NTNR 1 *NTP 1, SLEK ,SLFK11 

CALL CONFlD(ZC,NQUAfNIRI+N2,NOUAfNTRI+N2*ICATAS,XCOV,XCOVll 
CALL CQNFIOIZC, ISIH, ISIMFNDUPFL, DPCOV ,0PC0V1 1 
PRINT 9445,SFP,SFPERR 

PPINT 9450,XLEK,XLEK1,DUPLK,DUPLK1,SLEK,SLEK1 
PRINT 9455,XC0V,XC0V1,DPC0V,0PC0V1 
IFdOSIMl CALL PIOSTS 
GOTO 10 
20 CONTINUE 
STOP 

2000 CONTINUE 

CALL FCPPMl 
GOTO 10 
3000 CONTINUE 

CALL FCfiPH2 
GOTO 10 

C * FORMATS * 

Q ****** 

962 FORMAT (6H <*TR = ,I3,3X, 6HNEXT = , 13, 3X, 6HTIME =,F19.31 
985 FORMAT (IX, 6F19. 31 

988 FORMAT(6H PTR =,I3,10H REASOIT = ,12, BM TIME =,F19.3I 
991 FORMAT (25H TOO MANY FAULTS, MISSION, 161 
9400 FORMAT (IH1.30X, 42HS IHULATION STATISTICS 


SP02APR4 

SP02APR4 

SP02APR4 
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576 


500 
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9005 FORMAT «/lX,?0HNIJMnER OF PFRMAN ENTS ,5 X, I 10/1X» 

1 20HNUMnEP OF T RAMST ENTS i 5X, II 0/ tX ♦ 

2 22HTOTAL NUHOER OF FAULTS, 3X,I10/1X, 

3 25HNUMBEP OF SYSTEM FAILURES, liO) 

9»tl0 FORMAT |/71X,33HGPC FAULT ANO PECOVERY STATISTICS 

1 //3X,13HCONFIGURATION,5X,16HPERHANENT FAULTS, 4X, 

2 16HTRANSIENT FAULTS, AX, 12HTOTAL FAULTS) 

9A11 FORMAT I5X ,10HQU INTUPLE X, 6X , T 10 , 1 OX , 110 , 1 OX ,1 10) 

9412 FORMAT (5X , lOHQU AORUPLEX, 6X, 110 , lOX , II 0 ,1 OX , 110) 

9413 FORMAT (5X,10HTRIPLEX , 6X ,T 10 , 1 OX , 1 10 , 1 OX, 110 ) 

9414 FORMAT (5X ,10HnUPLEX ,6X,I10 ,10X,I10 ,10X,I10) 

9415 FORMATC5X,IOHSIHPLEX , 6X , 110 , 1 OX , 1 10 , 1 0X,1 10) 

9420 F0RMAT</21X,15HSYSTEM FAILURES ,5X,20HLEAKy 'TRANSIENTS 
1 ,15H0EGRAnATI0NS TO) 

9425 FORMAT (/34H GPO RECOVERY PROCEDURE STATISTICS ) 

9426 F0RHATI3X,25HHUH0ER OF OELAY-RECOVERYS,3X,I10) 

9427 FORMAT t3X,20HNUH0ER OF ROLLAHFADS,8X, 110) 

9428 FORMAT (3X,19HNUHDFR OF R0LLnACKS,9X, IIQ) 

9429 FORMAT (3X,22HtlUMOER OF MEMORY COPYS , 6 X , 110 ) 

9430 FORMAT t3X,25MNUM0ER OF SYSTEM RESTARTS , 3X , II 0) 

9431 FORMAT I3X,21HNUMDER OF SPARES USEO,7X,T10> 

9435 FORMAT (73X,31HPR0P0RTI0N OF HISSED ITERATIONS, 7X,E10. 3 
1 73X,35HLONGEST SERIES OF HISSED ITERATIONS, 3X, 110) 

9445 F0RHAH/28H MISSION FAILURE PR0BA6IL IT Y , 3X ,F10 . 8 ,5H ♦/- ,F1O.0I 
9450 F0RHAT(/9H LeAKAGES75X,9HMULTIPLEX,2X,F10.8,5H ,F10.87 

1 5X,6HDUPLEX,5X,F10.6,5H ♦/- ,Ft0.fl/ 

2 5X,7HSIMPLEX,4X,F10.6,5H ,F10.8) 

9455 FORMAT t/lOH COVERAGES75X ,9HHULT1PLEX, 2X,F10. 8,5H ♦/- ,F10.87 
1 5X,6HDUPLEX,5X,F10.8,5H ♦/- ,F10.6) 

9601 FORMAT (41H SIMULATION ADORTED FAULT TABLE OVERFLOW) 

9801 FORMAT 12110) 

9802 FORMAT<I1Q,F10. 0) 

9803 FORMAT (2T10) 

9804 FORHATm0,2F10.0) 

9805 FORHAH2I10) 

9806 FORMAT I3F10.0) 

9807 FORMAT(Il0,3F10.0) 

9808 FORHATm0,3F10.fl) 

9809 FORHAT(2I10,FIO .0) 

9810 FORMAT II10,3F10.0) 

9812 FORMAH2F10.0) 

9613 FORMAT 13F10.0) 

9814 FORMAT (2F10. 0,110, 2F10.0) 

9815 FORMATII10,F10.0) 

9900 FORMAH1H1,30X,?A5) 

9901 FORHAT(1H1,30X,2A5,2H -,I2,7H SPARES) 

9902 FORMAT (/5X,21UDFLAY RECONFIGURATION) 

9903 FORMAT(8X,8HDURATION,15X,F10.2,13H MILLISECONDS) ' 

9904 F0RHAT{PX,19HRECURRENCE INTCRV AL , 4 X, FlO. 2, 13H MILLISECONDS) 

9905 FORMAT«fiX,lTHEFFECTIVENFSS,10X,F10.6) 

9906 FORMAT t/5X,9HR0LLAHEAD) 

9907 FORMAT t/5X,llHMFHORY COPY) 

9908 FORMAT (/5X,nHR0LLBACK) 

9909 FORMAT (8X ,16HNUMDER OF RFTRYS , 7X , 1 2) 

9910 FORMAT (/5X,14HSYSTEM RESTART) 
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9911 FORMAT (//IX, 2DHRFCOVFRY PARAMETERS) 

9«il2 FORMAT (/5X,21HPR0GRAM SURV I VADIL IT V , 5X ,F1 B .6 ) 

9913 FORMAT (/5X,38HPROnAOILny OF FAULT DETECTION QV BITE 

1 /SX,17HCFNTRAL PROCESSOR, 6X,F6. 3 

2 /8X,6HMFM0RY,17X,F6.3 

3 /8X,13HI/0 PROCESSOR, 10X,F6. 3) 

9914 FORMAT (/5X,14HSTP EFFICIFNCY , 1 2X ,F10 . 6 

1 /5X.19KHEAN DIAGNOSIS TI ME , 7X , FIQ .2 » 13H MILLISECONDS) 

9915 FORMAT (5X,21H0ELAY BEFORE RFCOVFRY,5X,F10.2,13H MILLISECONDS) 

9916 FORMAT (5X,inHISOLATION DURATION, 0X , F 1 0 . 2, 13H MILLISECONDS) 

9917 FORMAT f/5X,23HSPARE CONDITIONING T IHE ,3X, F 10 .2 , 13H MILLISECONDS) 

991B FORMAT (/IX, HOHSOFTHARE PARAMETERS 

1 /5X, 26HITERATION PERIOD ,Fia.2,13H MILLISECONDS 

2 /5X,26HHIN0R CYCLE DURATION ,F10.2,13H MILLISECONDS 

3 /5X»26HHAJDR CYCLE DURATION ,110, IIH ITERATIONS 

4 /5X,26HTIHE BETWEEN COMPARISONS ,F1G.2,13H MILLISECONDS 

5 /5X, 26HMAXIHUM DOWN TIME ,F10.2,13H MILLISECONDS 

6 /5X,26HMIN0R CYCLE PROGRAM SIZE ,F10.6) 

9919 FORMAT (5X ,39HASYNCMRON0US EXECUTIVE - INTERRUPT RATEtFB.l, 

1 IIH PER SECOND) 

9920 FORMAT (/IX, 24HDFOICATEO I/O PROCESSORS) 

9921 F0RMAT(/IX,I2,1X,?8HN0N-0C0ICATED I/O PROCESSORS) 

9922 FORMAT (/lX,18HNUHnER OF MISSIONS, 1 12) 

9923 FORHATtlX,16HMISSION DURA TIBN, FI 4 . 4, IX ,5 HHOURS) 

9924 FORHATdOHlNOTATIONS 

1 /5X,34HM00ULE 1 - CENTRAL PROCESSING UNIT 

2 /5X,24HHOnULC 2 - I/O PROCESSOR 

3 /5X,17HM0DULE 3 - MEMORY 

4 /5X,27HH00ULE 4 - EXTERNAL DEVICES) 

9925 FORMAT (/1X,30HIHPACT OF I/O PROCESSOR FAULTS 

1 /5X,11M0N COMPUTER, 10X,F10. 6 

2 /5X,6H0N 9US,15X,F10.6 

3 /5X,19HON BUS AND COMPUTER, 2X ,F10. 6) 

9926 FORMAT!// IX, 36HnESCRIPTI0N OF THE FAULT ENVIORNMENT) 

9927 FORMAT (//IX, 29HTRANSIF.NT RECOVERY PROCEDURES) 

END 
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FNTRY POIN1S DEF LINE REFEREHCFS 
A050 ORIVER 1 


VARIABLES SN TYPE RELOCATION 


0 

AOFAU 

REAL 

ARRAY 

COM3 

REFS 

24 

AVOUR 

RFAL 

ARRAY 

C014 

REFS 

0 

CONDIT 

REAL 


C035 

REFS 

0 

COPLAS 

RFAL 

array 

COMB 

REFS 

2265 

DELAY 

REAL 


COHl 

REFS 

1 

DEOR 

REAL 


C027 

REFS 

1 

DETMAX 

REAL 


DETE 

REFS 

0 

OIAGN 

REAL 


D 

REFS 

7031 

DLYCPU 

REAL 



REFS 

0 

DOR 

REAL 


C027 

REFS 

6 

DOHHAX 

REAL 


EXEC 

REFS 

7064 

DPCOV 

RFAL 



REFS 

7065 

DPCOVl 

REAL 



REFS 

7056 

DUPLK 

REAL 



^ REFS 

7057 

DUPLKl 

REAL 



REFS 

6 

nURHC 

REAL 


COMB 

REFS 

1 

OURRB 

REAL 


COlO 

REFS 

0 

DURRES 

REAL 


C013 

RFFS 

74 

ENOHIS 

REAL 


COM3 

REFS 

2262 

EXTEN 

INTEGER 


COMl 

REFS 

0 

FOCO 

REAL 


COMO 

REFS 

0 

FOC02 

REAL 


FATLB2 

REFS 

5 

FRTI 

REAL 


0027 

REFS 

1 

FSHI 

REAL 


CO4 0 

REFS 

7036 

I 

INTEGER 



REFS 

3*344 






333 

0 

TCATAS 

INTEGER 


C041 

REFS 

0 

IDEBUG 

INTEGER 


DEBUG 

REFS 

70 33 

IDESCR 

INTEGER 



REFS 

2263 

IDETEC 

INTEGER 


COMl 

REFS 

0 

IDIM 

INTEGER 


COHl 

PEFS 

4 

IDLE 

REAL 


EXEC 

REFS 

7026 

IDLYRC 

INTEGER 



PEFS 

1 

IFAU 

INTEGER 


C012 

REFS 

0 

IFLTCT 

INTEGER 


FLTMS 

REFS 

1 

IFULL 

INTEGER 


COM2 

PEFS 

1 

IFME 

INTEGER 


COVER 

REFS 

0 

TOCU 

INTEGER 

ARRAY 

C038 

REFS 

70 0 4 

lOF 

INTEGER 



REFS 

7001 

lOSIM 

LOGICAL 



RFFS 

DEFINEO 

7006 

101 

* INTEGER 



DEFINED 

7025 

TROLLA 

INTEGER 



REFS 

DEFINED 

7032 

TROLLR 

INTEGER 



PEFS 

7005 

ISIM 

INTEGER 



RFFS 






474 
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90 

363 

364 

DEFINEO 

336 



98 







109 

284 

DEFINEO 

197 




93 

DEFINED 

340 

441 




8B 

262 

372 

DEFINEO 

205 



103 

DEFINED 

166 





123 

261 

DEFINEO 

206 




121 

281 

DEFINED 

206 




223 

224 

DEFINED 

201 




103 

DEFINED 

159 





124 

285 

DEFINED 

208 




529 

532 






529 

532 






526 

531 






526 

531 






93 

267 

DEFINED 

203 




94 

DEFINED 

219 

225 

232 



97 

277 

DEFINEO 

204 

% 



90 

427 

DEFINED 

316 




66 

134 






92 

371 

441 

DEFINEO 

161 



125 

DEFINED 

162 





103 







114 







247 

246 

339 

340 

341 

2*342 

343 

346 

2*347 

363 

364 

DEFINED 

247 

248 

362 







115 

360 

528 

DEFINED 

163 

380 


122 

359 

399 

DEFINED 

151 



211 

265 

441 

518 

DEFINED 

203 

211 

88 ' 







86 

335 

362 

DEFINED 

144 



124 

139 

DEFINED 

218 




220 

252 • 

508 

DEFINED 

201 



96 

484 

485 

DEFINED 

164 



133 

2*413 

2*414 

3*432 

DEFINED 

330 


69 

309 

DEFINED 

165 




119 







112 

DEFINED 

346 

347 




415 

DEFINED 

166 

415 




136 

213 

214 

349 

5 33 



212 







170 







235 

259 

371 

513 

515 



200 

227 

236 

1 




230 

271 

514 

DEFINED 

202 



461 

474 

506 

2*529 

DEFINED 

167 

461 
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VfiRIflBLES SN 

TYPF 

RELOCATION 









3 

ISPARE 

INTEGER 

ARRAY 

C034 

REFS 

103 

DEFINED 

343 

344 




707(j 

ISTAPT 

INTEGER 



REFS 

379 

519 

DEFINED 

204 




0 

ISH3 

INTEGER 


C040 

REFS 

114 







1 

ISYNC 

INTEGER 


CD31 

REFS 

106 

286 

DEFINED 

210 




0 

ITLKP 

INTEGER 


COVER 

REFS 

119 

505 

2*528 

DEFINED 

168 



t 

13 

INTEGER 


0 041 

REFS 

115 

DEFINED 

169 





7G«t2 

J 

INTEGER 



REFS 

336 

364 

DEFINED 

335 

, 364 



701*1 

K 

INTEGER 



REFS 

317 

318 

319 

DEFINED 

316 



0 

LAST 

i#EAL 

ARRAY 

PERN 

RTFS 

128 

139 

DEFINED 

339 

371 ' 



0 

LAUNHI 

REAL 


CYC 

REES 

120 

139 

DEFINED 

331 




1 

HACV 

INTEGER 


MM 

REES 

127 

239 

285 

DEFINED 

208 



0 

MAXRLO 

INTEGER 


cnio 

“EES 

94 

273 

448 

466 

DEFINED 

202 

226 






231 








75 

HEMS 12 

INTEGER 


COM3 

PEES 

90 







4 

MI 

INTEGER 


C027 

PEES 

103 







0 

MINGY 

REAL 


EXEC 

PEFS 

124 

139 

218 

285 

DEFINED 

203 


5 

HININT 

REAL 


PERM 

REFS 

128 

139 

255 

262 

DEFINED 

^ 200 

222 






239 








2 

MISIT 

INTEGER 


C027 

PEFS 

103 







7 

HISiTf 

INTEGER 


E'^EC 

REFS 

124 

5Z0 

DEFINED 

171 




0 

HISTAK 

INTEGER 


coil 

REFS 

95 

2*525 

DEFINED 

172 




0 

MISTKI 

INTEGER 

ARRAY 

0042 

REFS 

116 

137 

156 

501 

502 

503 


7035 

MOO 

INTEGER 



REFS 

247 

248 

332 

342 

344 

353 

487 






50 0 

DEFINED 

216 






0 

MOOSIM 

INTEGER 


CO20 

REFS 

104 

216 

217 

299 

DEFINED 

196 


7021 

Nnouc 

INTEGER 



REFS 

295 

317 

3*323 

DEFINED 

195 



7047 

NDFLAY 

INTEGER 



REFS 

510 

DEFINED 

509 





0 

NOIAG 

INTEGER 


C016 

PEFS 

IQO 

455 

DEFINED 

173 

455 



7046 

NDUPFL 

INTEGER 



PEFS 

505 

529 

DEFINED 

504 




7043 

NEXT 

INTEGER 



REFS 

357 

361 

367 

374 

386 

393 

443 






449 

450 

456 

463 

473 

474 

480 







DEFINED 

381 

398 

469 





0 

NF 

INTEGER 

ARRAY 

FCOUNT 

REFS 

126 

157 

488 

489 

490 

491 

492 






49 3 

494 

495 

496 

497 




7007 

NFAIL 

INTEGER 



REFS 

402 

485 

524 

DEFINED 

174 

402 


7066 

NFAILI 

INTEGER 

ARRAY 


PEFS 

137 

155 

424 

501 

502 

503 

504 






DEFINED 

424 







0 

NFCV 

INTEGER 

ARRAY 

FLTMIS 

REFS 

132 

153 

414 

432 

DEFINED 

414 

432 

7010 

MFOANR 

INTEGER 



PEFS 

41B 

504 

DEFINED 

175 

418 



7011 

NFIO 

INTEGER 



PEFS 

410 

DEFINED 

176 

410 




7012 

NFSIH 

INTEGER 



REFS 

421 

506 

DEFINED 

177 

421 



3 

NIO 

INTEGER 


C04 0 

REFS 

114 

288 

333 

DEFINED 

198 

217 


0 

NMC 

INTEGER 


C029 

REFS 

105 

442 

518 

DEFINED 

178 

442 


7073 

NMOONF 

INTCGER 

ARRAY 


RFFS 

138 

247 

248 

DEFINED 

142 



0 

HMIS 

INTEGER 


COM2 

REFS 

09 

300 

320 

323 

325 

407 







DEFINED 

293 

319 

324 





7037 

NMISO 

INTEGER 



REES 

319 

324 

DEFINED 

294 

323 



7003 

NMISl 

INTEGER 



REFS 

152 

249 

320 

325 

520 

524 







DEFINED 

151 







7023 

NHOOU 

integer 



PEES 

212 

299 

303 

DEFINED 

196 



5 

NOHDFO 

INTEGER 


C03A 

PEFS 

112 

217 

246 

287 

280 

345 







DEPINEO 

198 







0 

NOON 

INTEGER 

ARRAY 

C015 

REFS 

99 

DEFINED 

341 

342 




7044 

NPERM 

INTEGER 



RFFS 

485 

48 9 

491 

493 

495 

497 
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VARIAQtES SN 

TYPE 

RELOCATION 















DEFINEO 

464 

488 

490 

492 

494 

496 



1 

MOUA 

INTEGER 


C017 

REFS 

101 

502 

2*528 

DEFINEO 

179 




70<*5 

NQUINT 

INTEGER 



REFS 

501 

DEFINED 

499 


■ 




7013 

NRES 

INTEGER 



REFS 

385 

519 

DEFINED 

tea 

385 




701<* 

MRL 

INTEGER 



PEFS 

373 

439 

509 

513 

515 









DEFINED 

181 

373 

439 






7015 

NROnA 

INTEGER 



REFS 

448 

509 

515 

516 

DEFINED 

182 

44£ 







515 









7016 

NS 

INTEGER 



REFS 

479 

522 

DEFINED 

163 

479 




7024 

NSPA 

INTEGER 



REFS 

215 

, 216 

247 

2*248 

284 

300 

33* 







344 

522 

DEFINED 

197 






1 

NSPB 

INTEGER 


C028 

REFS 

104 

DEFINED 

215 

334 





2 

NSHION 

INTEGER 


CO40 

REFS 

Il4 








12 

NSYSF 

INTEGER 

ARRAY 

FLTHIS 

REFS 

132 

154 

413 

DEFINED 

413 




7017 

NIL 

INTEGER 



REFS 

425 

DEFINED 

184 

425 





3 

NTNRl 

INTEGER 


PHILH"» 

PFFS 

129 

506 

2*527 

DEFINED 

185 




0 

NTR 

INTEGER 


C012 

REFS 

96 

484 

485 

DEFINED 

166 




5 

NTRF 

INTEGER 

ARRAY 

FCOUNT 

REFS 

126 

158 

488 

489 

490 

491 

492 







49 3 

494 

495 

496 

497 





0 

NTRI 

INTEGER 


C017 

REFS 

101 

503 

2*528 

DEFINED 

187 




2 

NTRl 

INTEGER 


PHILHT 

RFFS 

129 

527 

DEFINEO ' 188 





1 

NTR2 

IHTFGER 


PKILM3 

REFS 

129 

526 

DEFINED 

189 





0 

NTR3 

INTEGER 


PHILM3 

REFS 

129 

525 

DEFINED 

190 





1 

NUNDl 

INTEGER 


C016 

REFS 

100 

DEFINED 

191 






6 

NUOIO 

INTEGER 


C038 

REFS 

112 

347 

DEFINED 

333 





5 

NHORK 

INTEGER 


C015 

REFS 

99 

2*424 

DEFINEO 

332 





7020 

N2 

INTEGER 



REFS 

391 

450 

505 

2*528 

DEFINED 

192 

391 







450 








o ^ 

3 

OLTIS 

REAL 


EXEC 

REFS 

124 








1 

PBU 

REAL 


C0A6 

REFS 

118 

246 

290 

DEFINEO 

199 




2 

pnuco 

REAL 


C046 

REFS 

118 

290 

DEFINED 

245 

246 



frj o 

0 

POOH 

REAL 


C046 

REFS 

118 

246 

290 

DEFINEO 

199 




0 

POET 

REAL 


OETE 

REFS 

123 

280 

DEFINED 

207 




^ a 

0 

POET 10 

REAL 


C03R 

REFS 

113 

280 

defined 

207 





2 

PDM 

REAL 


OETE 

REFS 

123 

280 

DEFINED 

207 





2«( 

PFRIO 

REAL 


FLTMIS 

REFS 

132 








0 

PROMM 

REAL 


HH 

PEFS 

127 

285 

DEFINED 

209 





7050 

PROP 

REAL 



REFS 

521 

DEFINED 

520 





ty Hq 

0 

PSHC 

REAL 


CCI45 

REFS 

117 

269 

DEFINED 

203 





6 

PSUC 

RFAL 


PERM 

REFS 

128 

279 

DEFINED 

209 




txl ^ 

2261 

PTR 

INTEGER 


COHl 

REFS 

88 

134 

316 

360 

361 

400 

427 

o^ 






4?S 

DEFINED 

308 

' 428 

N 




O H 

0 

PACPO 

REAL 


rahead 

RFFS 

130 

256 

263 

DEFINEO 

200 

2?3 

23£ 

• 6 

0 

RATINT 

RFAL 


G031 

REFS 

106 

286 

DEFINEO 

210 





0 

RBCPO 

REAL 


ROACK 

PFFS 

131 

236 

274 

DEFINED 

202 

224 



7030 

RCCINT 

RFAL 



REFS 

222 

DEFINED 

201 






7027 

PGOUR 

REAL 



REFS 

221 

225 

DEFINED 

201 





0 

REASON 

INTEGER 


C0M7 

REFS 

91 

134 

400 

404 

DEFINEO 

382 

47C 


226 «* 

RECOV 

RFAL 


CQMl 

»EFS 

aa 

254 

261 

DEFINED 

200 

221 

237 


0 

RLAMOP 

REAL 

ARRAY 

0014 

REFS 

98 








5 

PLAMOT 

REAL 

ARRAY 

0 014 

REFS 

98 








17 

RHAXI 

REAL 

ARRAY 

CQ14 

REFS 

98 








5 

RHC 

RFAL 


C0H9 

RFFS 

93 

268 

DEFINED 

203 





12 

RMINI 

REAL 

ARRAY 

C014 

REFS 

98 









pPOGRAM 


DRIVFP 


COC 66G0 FTN V3.0-P355 OPT = l 0»»/09/76 15.29.55 


PAGE 


16 


VARIABLES SN TYPE RELOCATIOM 


7022 

RMISTH 

REAL 



REFS 

250 

292 

DEFINED 

195 




0 

PHISTH 

REAL 


003 6 

REFS 

110 

295 

316 

2*318 

520 








OEFIHEO 

292 







0 

RHU 

REAL 


0037 

REFS 

111 

303 

DEFINED 

302 

303 



0 

PMUP 

RFAL 

ARRAY 

0 033 

REFS 

107 

302 

30.3 





1 

RTI 

REAL 


EXEC 

PEFS 

124 

218 

239 

285 

520 








DEFTNEO 

208 




1 



7002 

StEO 

RFAL 



REFS 

148 

DEFINED 

146 





5 

SEdMAX 

INTEGER 


EXEC 

REFS 

124 

134 

521 

DEFINED 

193 



7052 

SFP 

REAL 



REFS 

524 

530 






70*5 3 

SFPERR 

REAL 



REFS 

524 

530 






70or 

SIHTYP 

INTEGER 



REFS 

135 

147 

149 

DEFINED- 

146 



7060 

SLEK 

real 



REFS 

527 

531 






7061 

SLEKl 

REAL 



REFS 

527 

531 






1 

TABLE 

REAL 

ARRAY 

COMl . 

REFS 

88 

316 

427 





76 

TO 

REAL 


0 0113 

REFS • 

90 

219 

237 

285 

DEFINED 

205 


25 

TFRIO 

REAL 


FLTMIS 

REFS 

132 







70<)0 

TIGEN 

REAL 



REFS 

299 

DEFINED 

295 





2266 

TIME 

REAL 


COMl 

PEFS 

88 

361 

371 

372 

400 

441 







DEFINED 

372 







3 

TISL 

REAL 


0 02 7 

REFS 

103 







2 

TODO 

REAL 


EXEC 

REFS 

124 







0 

TH2 

REAL 


1 0026 

REFS 

102 

283 

DEFINED 

206 




7062 

XCOV 

REAL 



REFS 

528 

532 






7063 

XCOVl 

REAL 



REFS 

528 

532 






7054 

XLEK 

REAL 



RFFS 

525 

531 






7055 

XLEKl 

REAL 



REFS 

525 

531 






7051 

20 

REAL 



REFS 

524 

525 

526 

527 

528 , 

529 







DEFINED 

523 







FILE names 

MODE 











0 

INPUT 

FMT 


READS 

146 

151 

195 

196 

197 

198 

199 

200 





201 

202 

203 

204 

205 

206 

207 

200 

209 





210 


' 







2022 

OUTPUT 

FMT 


WRITES 

247 

240 

249 

250 

251 

253 

254 

255 





256 

26 0 

261 

262 

263 

266 

267 

268 

269 





272 

27 3 

274 

276 

277 

278 

279 

280 

281 





202 

283 

284 

265 

286 

287 

288 

289 

290 





291 

310 

361 

364 

400 

407 

483 

485 

486 





409 

491 

493 

495 

497 

498 

501 

502 

50 3 





50 5 

506 

507 

510 

513 

516 

518 

519 

521 





522 

530 

531 

532 



■ 
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TYPE 

ARGS 

REFERENCES 










CLFAP 


2 

153 

154 

155 

156 

157 

158 





OONFln 


5 

524 

525 

526 

527 

528 

529 





FAUGEN 


4 

299 










FOBIN 


0 

213 










FCBINI 


0 

349 










FCOPI 


0 

214 










FCBPHl 


0 

530 










FCBPM2 


0 

541 










PIOSTS 


0 

53 3 










RANSET 


1 

14 6 
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STATEA 


1 

46S 


STATEB 


1 

473 


STATEC 


1 

4B0 


STATEl 


1 

35 7 


STATE2 


1 

374 


STATES 


1 

3B6 


STATE4 


1 

393 


STATE? 


1 

443 


STATEB 


1 

449 


STATE9 


1 

45fi 


INLINE FUNCTIONS 

TYPE 

ARGS 

DEF LINE 

REFERENCES 

INT 

INTEGER 

1 

INTRIH 

316 


STATEMENT LABELS 

DEF LINE 

REFERENCES 









4052 

19 

145 

311 

534 

539 

542 






60 30 

20 

5 35 

14 7 

152 








4775 

30 

298 

326 









0 

33 

INACTIVE 305 










5020 

40 

315 

309 

427 

433 







5034 

41 

322 

317 









5043 

43 

3 29 

321 









5320 

45 

431 

36 7 









5313 

50 

426 

406 

411 

<tl6 

419 

422 

429 




5010 

56 

3 04 

30 0 


, 







5122 

,60 

3 56 

375 

383 

387 

394 

444 

451 

457 

464 

i*71 




475 

481 








5107 

65 

352 

367 









5120 

66 

3 54 

3*353 









5203 

70 

366 

'367 









5216 

60 

3 78 

367 









5225 

fll 

3 84 

379 









5310 

B4 

423 

4P4 









5267 

65 

4 06 

404 









5231 

90 

390 

367 









5233 

91 

39? 

353 








s ^ 

5236 

100 

397 

36 7 








s ^ 

5253 

101 

401 

399 








gs 

0 

102 

3 65 

362 









5163 

103 

366 

359 

360 
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5405 
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4 82 

32 0 
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»x) W 

0 

140 

337 

375 









5275 

160 

409 

404 
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170 

412 

404 
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IfiO 

417 

404 








PA 

5306 

190 

420 

404 








o 
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210 

4 36 

367 
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220 

447 

36 7 








o 

5354 

230 

454 

36 7 








O 

Sn ta 

S360 

240 

460 . 
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fed 

5362 

241 

462 

353 








5365 
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467 

36 7 
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510? 

285 




348 

358 

345 

4414 

801 




279 

22 0 


4421 

802 




2 34 

23 0 


4432 

005 




243 

228 

233 

6142 

962 

FHT 



546 

361 


6150 

9B5 

FMT 



547 

364 


6152 

98 8 

FHT 



548 

400 


6160 

991 

FMT 



549 

40 7 


4074 

1000 




150 

149 


4530 

1001 




258 

25 2 


4555 

1002 




264 

257 

299 

4602 

1003 




270 

265 


462? 

1004 




7 75 

771 


5441 

1101 




488 

487 


5454 

1102 




490 

487 


5467 

1103 




492 

487 


5502 

1104 




4 94 

487 


5515 

1105 




4 96 

407 


554 5 

1106 




501 

500 


5556 

1107 




502 

500 


5667 

1108 




503 

500 


5600 

1109 




504 

500 


5613 

1110 




506 

500 


5642 

1120 




512 

508 


5666 

1130 




517 

511 

514 

6032 

2000 




5 37 

149 


6035 

3000 




540 

149 


6165 

9400 

FHT 



550 

48 3 


6174 

9405 

FMT 



551 

406 


6213 

9410 

FMT 



555 

486 


6231 

9411 

FMT 



558 

469 

501 

6236 

9412 

FHT 



5 59 

491 

502 

6243 

9413 

FMT 



560 

493 

503 

6250 

9414 

FMT 



561 

495 

505 

6255 

9415 

FMT 



562 

49 7 

506 

6?6 2 

9420 

FHT 



5 63 

490 


6277 

9425 

FMT 



565 

507 


6277 

9426 

FMT 



566 

510 


6304 

9427 

FMT 



567 

513 


6311 

9428 

FHT 



568 

516 


6316 

9429 

FHT 



569 

518 


6323 

9430 

FHT 



570 

519 


6330 

9431 

FHT 



5 71 

52? 


6335 

9435 

FHT 



572 

521 


6350 

9445 

FHT 



574 

530 


6357 

9450 

FHT 



575 

531 


6374 

9455 

FHT 



578 

532 


6406 

9601 

FMT 



580 

3i0 


6414 

9601 

FMT 



581 

151 


6416 

9802 

FMT 



582 

146 

196 

6421 

9803 

FHT 



503 

196 


642 3 

9804 

FMT 

NO 

RFFS 

584 



6426 

9805 

FMT 



585 

198 


643 0 

9806 

FMT 

MO 

REFS 

586 
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6432 

9807 

FHT 

587 

200 





6435 

9808 

FMT 

588 

201 





6443 

9809 

FHT 

589 

20 2 





6443 

9810 

FHT 

550 

203 





6446 

9812 

FHT 

591 

199 

205 

209 



6450 

9813 

FHT 

592 

206 

207 




6452 

9814 

FHT 

593 

208 





6455 

9815 

FHT 

594 

210 





6460 

9900 

FHT 

595 

247 





6463 

9901 

FHT 

5 96 

248 





6467 

9902 

FHT 

597 

253 





6473 

9903 

FHT 

598 

254 

261 

267 

,277 


6500 

9904 

FHT 

5 99 

255 

26 2 

268 


6506 

9905 

FHT 

600 

266 

26 3 

269 

274 


6512 

9906 

FHT 

601 

260 





6515 

9907 

FMT 

602 

266 





6520 

9908 

FMT 

603 

272 





6523 

9909 

FMT 

604 

273 





6527 

9910 

FMT 

605 

276 





6533 

9911 

FMT 

606 

278 





6537 

9912 

FMT 

6 07 

279 





6544 

9913 

FMT 

608 

28 0 





6561 

9914 

FHT 

612 

281 





6572 

9915 

FHT 

614 

282 





6601 

9916 

FMT 

615 

28.3 





6607 

9917 

FMT 

616 

284 





6616 

9918 

FHT 

617 

285 





6661 

9919 

FHT 

624 

286 





6671 

9920 

FMT 

626 

287 





6676 

9921 

FMT 

627 

28 8 





6704 

9922 

FHT 

628 

249 





6710 

9923 

FMT 

6 29 

25 0 





6 715 

9924 

FHT 

630 

289 





6735 

9925 

FHT 

6 35 

290 





6752 

9926 

FHT 

6 39 

291 





6760 

9927 

FMT 

640 

251 
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5054 

140 

J 

335 337 

29 

TN3TACK 




5063 

285 

* I 

338 348 

22Q 

OPT 




5142 

102 

* I 

362 365 

21B 

EXT 

REFS 

EXITS 

NOT INNER 

5150 

_ 

* J 

364 

78 

EXT 

REFS 
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COMl 

1207 


0 roiH 

CD 

1 

TABLE 

tiZBO) 




12 02 EX TEN 

(11 

1203 

IDETEC 

(1) 




1205 DELAY 

ID 

1206 

TIME • 

(1) 


COM2 

2 


0 HMIS 

(1) 

1 

IFIJLL 

(D 


COM3 

63 


0 ACFAU 

(60) 

60 

ENDHIS 

m 




62 TC 

(1) 





COM? 

1 


0 PEASON 

(1) 





COH8 

1 


0 roco 

(1) 





COM9 

7 


0 COPLAS 

(5) 

5 

RMC 

(D 


COlO 

2 


0 HAXRLO 

(D 

1 

OURRB 

(D 


1201 PTR ID 
1204 RECOV ID 

61 MEHSIZ ID 
6 OURHC ID 


PR6E 
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C013 1 

COlif 25 

C015 6 

cole Z 

C017 2 

COE6 1 

C027 6 

C020 2 

Cn2B 1 

C031 2 

C033 5 

C03L 5 

C035 1 

C03fi 1 

0037 1 

C038 7 

C039 1 

C040 L 

0041 2 

0042 3 

C045 1 

C046 3 

COVER 2 

CVC 1 

D 1 

DEBUG 1 

DFTE 3 

EXEC ft 

FAILD2 1 

FCOUNT 10 

MM 2 

PFRM 7 

PHILM3 4 

PAHEAO 1 

RDACK 1 

FLTMIS 22 

FLTHS 1 

STATTSTTCS 

PROGRAM LENGTH 3043B 
BUFFER LENGTH 4044R 
COMMON LENGTH 26310 


members - 3IAS NAME«LENGTH) 


0 

HISTAK 

111 

0 

HTR 

(11 

0 

DURRF5 

( 1 ) 

0 

RL AHOP 

151 

15 

RHAXI 

(51 

0 

MOON 

15 ) 

0 

HDIAC 

(11 

0 

MTPI 

111 

0 

rK2 

<11 

0 

DOR 

( 1 ) 

3 

riSL 

( 1 ) 

0 

HODS I H 

( t ) 

0 

MMC 

( 1 ) 

0 

RATINT 

III 

0 

PMUP 

(51 

0 

ISRARF 

(51 

0 

CONOIT 

(11 

0 

RHISTH 

( 1 ) 

0 

RMU 

(11 

0 

lOCU 

( 5 ) 

0 

PDETIO 

111 

0 

ISHI 

(1) 

3 

MID 

( 1 ) 

0 

TCATAS 

(11 

0 

MISTKI 

ni 

0 

PSMC 

( 1 ) 

0 

PCOH 

(11 

0 

TTLKP 

( 1 ) 

0 

LAUNHI 

( i ) 

0 

OIAGN 

( 1 ) 

0 

lOFBUG 

(11 

a 

PDFT 

(tl 

0 

MINDY 

m 

3 

OLTIS 

111 

6 

OOHHAX 

(11 

0 

F0C02 

(11 

n 

HF 

(51 

0 

PR OHM 

(11 

0 

LAST 

(51 

0 

MTP3 

( 1 ) 

3 

NTNRl 

(11 

0 

PA CPU 

(11 

0 

PBCPU 

( 1 ) 

0 

«FCV 

( 10 ) 

21 

TFRIO 

(11 

rt 

IFLTCT 

(11 
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SUBROUTINE ASYNCt TIME » FINPR, NEXT I 

C THIS VERSIOHI 29 AUGUST 1974 

C ASYNC CENERATFS SEVFRAL FAULTS IN ACFAU DEPENDING OH THE NUMBER OF 
C INTERRUPTS RECEIVED BETHEEN OCCURRENCE AND DETECTION OF THE FAULT 
5 C IN CASE OF AN ASYNCHRONOUS EXECUTIVE i THIS SUBROUTINE CREATES PSEUDO* 

C FAULTS CORRESPONDING TO THE FACT THAT A FAULT HAY BE DETECTED HORE 
C THAN ONCE 

C FINPR LAST DETECTION (COHPUIEO OY OETTIHEI 
C TIME OCCURRENCE TIME OF THE FAULT 

10 C NEXT SET TO 5 IF HORE FAULTS ARE GFNERATED THAN CAN BE ACCOHODATED 

C BY ACFAU fIF IT HAPPENS* INCREASE lOIM AND SIZE OF ACFAU. 

C . . 

DOHHON/COMl/ lOIH* TABLE (300,41 ,PTR, EX TEN, IDETEC.RECOV, DELAY,! 

15 COHHON/COH3/ACFAU(lO,6l,ENDHIS,HEHSlZ,TC 

COMMON7COM7/REASON - 
COHMON/C031/RATINT,ISYNC 

COHHON7EXEG/HINCY,RTI,TOOO,OLTIS,IDLE,SEOHAX,DOHHAX,HISITE 
INTEGER EXTEN.PTR, REASON 
20 REAL MINGY, IDLE 

Q Vy «««»«*»«*«* 

C 

' IF (RANF(0*l .LT.HINCY/RTI) RETURN 

IF (RATINT.EQ. 0 .1 RETURN 

25 C TEST IF AN INTERRUPT COMES BEFORE FINPR 

U=0. 

10 CONTINUE 
Y=RANF(0.> 

IF (Y,EQ.D.) GO TO ,10 

30 U=U+(-1000./RATINTJ*ALOGCYI 

IF (U.GT. FINPR- TIME» RETURN 
C 

C AN interrupt COMES CREATE A NEM FAULT 
DO 20 I::1,I0IH 

35 • IF (ACFAU(l,3I.EQ.O.) GO TO 30 

20 CONTINUE 

C THE ACFAU TABLE IS FULL 
NEXTsS 
REASON=l 

40 RETURN 

G COPY NEMLY CREATED FAULT 
30 CONTINUE 

ACFAU(I,2I=TABLE(PTR,1I»TABLE(PTR,2J 

ACFAOtI,3>=l. 

45 ACFAU(I,4)=TABLEIPTR,4I 

ACFAU(I,5}-0. 

CALL DETTIH(DETEC,TIHE4Uil.0l 
ACFAU(I,6»=0ETEC 
IF (OETEC.LT.FINPRIFINPR=DETEC 
SO GO TO 10 

END 
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1 

23 
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C 

ACFAU 

REAL 

ARRAY 

COM3 

RfFS 

15 

35 

DEFINED 

43 

44 

45 






48 







2265 

DELAY 

REAL 


COHl 

REFS 

14 






106 

OETEC 

REAL 



REFS 

47 

48 

2*49 




6 

DOHHAX 

REAL 


EXEC 

REFS 

18 






7A 

ENDHIS 

REAL 


COM3 

REFS 

15 






2262 

EXTEN 

INTEGER 


COHl 

REFS 

14 

19 





0 

FINPR 

REAL 


F.P. 

REFS 

31 

49 

DEFINED 

1 

49 


105 

I 

INTEGER 



REFS 

35 

43 

44 

45 

46 

43 






DEFINED 

34 






2263 

lOETEC 

INTEGER 


COHl 

REFS 

14 






0 

IDIH 

INTEGFR 


COHl 

REFS 

14 

34 





A 

IDLE 

REAL 


EXEC 

REFS 

18 

20 





1 

ISYNC 

INTEGFR 


C031 

REFS 

17 






75 

HEMSI7 

INTEGER 


COM3 

REFS 

15 






0 

MINGY 

REAL 


EXEC 

REFS 

18 

20 

23 




7 

MISITE 

INTEGER 


EXEC 

REFS 

18 






0 

NEXT 

INTEGER 


F.P. 

DEFINED 

1 

38 





3 

DLTIS 

REAL 


EXEC 

REFS 

18 






2261 

PTR 

INTEGER 


COHl 

REFS 

14 

19 

2*45 

45 



0 

RATINT 

REAL 


CD31 

refs ’ 

17 

24 

30 




D 

REASON 

INTEGER 


C0H7 

REFS 

16 

19 

DEFINED 

39 



226«i 

RECOV 

REAL 


COHl 

REFS 

14 






1 

RTI 

REAL 


EXEC 

REFS 

18 

23 





5 

SEQMAX 

REAL 


EXEC 

REFS 

18 






2266 

T 

REAL 


COHl 

REFS 

14 






1 

TABLE 

REAL 

ARRAY 

COHl 

REFS 

14 

2*43 

45 




76 

TC 

REAL 


OOM3 

REFS 

15 






0 

TIME 

REAL 


F.P. 

REFS 

31 

47 

DEFINED 

1 



2 

TODO 

REAL 


EXEC 

REFS 

18 






103 

U 

REAL 



REFS 

30 

31 

47 

DEFINED 

26 

38 

lOA 

Y 

REAL 



REFS 

29 

38 

DEFINED 

28 
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ALOG 

REAL 

1 LIBRARY 30 
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RANF 

REAL 

1 

23 

28 







STATEMENT LABELS 


OEF LINE REFERENCFS 







17 

10 


27 

29 

50 







Q 

20 


36 

34 








51 

30 


R2 • 

35 








LOOPS 

label 

INDEX 

FROM-TO 

LENGTH 

PROPERTIES 







A1 

20 ♦ 

I 

3A 36 

4D 

INSTACX 

EXITS 








SUOROUTINE ASYNC 
COHHON BLOCKS LENGTH. 


COHl 

1207 

COM3 

63 

COH7 

1 

C031 

2 

EXEC 

B 


MEMBERS - BIAS NAHE(LENGTH) 
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subroutine BUSCHK (NEXT, NUNIT) 

C THIS VERSION! MARCH 1976 

COMMON/FAULT/FLTTYP 
COMMON/COH7/REA SON 
COMMON/FCBCNT/FCOSF,FALFCB(50> 
COMHON/STATUS/STS(ZQ) 

INTEGER F,LTTYP«REASON*FCBSF,FALFC0»STS 
• IBUS=IRANUt8) 

CALL BUSFLT«IQUSI 
IF<STS«1> .EQ.O) RETURN 
REASON=7 
NEXT=5 

FCBSF=FCOSF*l 
K"STS ! Z) 

FALFCB (K) =FALFCB< K» Fl 

RETURN 

END 
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map 



entrv 

POINTS 

OEF LIME 

REFERENCES ‘ 


2 

BUSCHK 

1 

10 

16 


VARIABLES SN 

TYPE 

RELOCATION 


1 

FALFCO 

INTEGER 

array 

FCBCNT 

REFS 

0 

FCBSF 

INTEGER 


FCBCNT 

REFS 

0 

FLTTYP 

INTEGER 


FAULT 

REFS 

32 

inus 

INTEGER 



REFS 

33 

fC 

INTEGER 



REFS 

0 

NEXT 

INTEGER 


F.P, 

DEFINED 

0 

NUNIT 

INTEGER 

•UNUSED 

F.P. 

defined 

0 

REASON 

INTEGER 


COM7 

REFS 

d 

STS 

INTEGER 

array 

STATUS 

REFS 

externals 

TYPE 

ARCS 

REFERENCES 


BUSFLT 


1 

9 



IRAN 

INTEGER 

2 

0 


COMMON 

BLOCKS 

LENGTH 

MEMBERS 

• BIAS NAHEtLENGTHJ 


FAULT 

1 


0 FLTTYP 

lit 


COM? 

i 


0 REASON 

111 


FCBCNT 

51 


0 FCBSF 

ID 


STATUS 

20 


0 STS 

(201 
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PROGRAM LENGTH 34B ' 28 

COMMON length lllB 73 


Ol ^ H> lO M VJ1 


PA GE 
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15 

OEFINEO 

15 

7 

i3 

OEFINEO 

13 

7 




DEFINED 

6 



OEFINEO 

19 



12 




7 

DEFINED 

11 


7 

10 
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SUBROUTINE tlUSFLT 


CqC 6600 FTM V3.0-P355 DPT=l 0«i/08/76 


17. 50. 49 


pacE , 


1 


5 


10 


IS 


20 


25 


30 


35 


40 


45 


so 


55 


SUBROUTINE BOSFJ.TIBUSI 
C 

C THIS SUBROUTINE DETERMINES THE EFFECT OF A BUS FAULT ON THE FLIGHT 
C CRITICAL BUS EQUIPMENT GROUP. 

C 

C BUS IDENTIFIES THE FAULTY BUS 
C 

«*«**« *•«**««¥«»•»««*««**« «***«« 

COHMON/FCBl/OUSSTSO) ,FCB(8,t0» ,BTUSTS(10» 

COMMON/FCD2/NOTU,BTUTYP{lO1,BTUCON(lO,4l,0TOMO(lOf 

COMMON /FCB3/ BUS TFL»BUSCOV 

COMMON/FCB4/NOUSTF,NBUSPF,NnUSTR 

COHHON/C012/NTR,IFAU 

COHMON/FAULT/FL TTYP 

COHMON/STATOS/STS 120) 

COHMON/FCBUC/FCRUCF(6) 

COHHON/FL AGS7FL6( 5» 

LOGICAL FLG 
LOGICAL GREATR 
INTEGER FC0UCF 

INTEGFP BTUNO.BUSSTS.FCBtBTUSTS 
INTEGER NBTU,BTUTYP,BTUC0N,FLTTYP,STS 
INTEGER 0US,flSTS 
C 

c ...IGNORE THE FAULT IF THE BUS IS ALREADY DISABLED 

BSTS = nUSSTSIBUSJ 
IFIBSIS.EQ.OI RETURN 
FLG(i»=.TRUE, 

C ...JUHP TO TRANSIENT OR PERMANENT FAULT ROUTINE 

GOTO(100t200,205) ,FLTTYP 

C 

0 TRANSIENT FAULT HAS OCCUREO 
C 

100 CONTINUE 

C ...INCREMENT FAULT COUNTERS 

IFAD = IFAU^l 
NTR = NTR. ♦! 

NOUSTF = NBUSTFH 

C ...IF TRAllSIENT RECOVERY FAILS, GOTO PERMANENT RECOV 

IFIGREATR (BUSTFLI) RETURN 
NOUSTR = NBUSTR+l 
GOTO 205 
C 

C PERMANENT FAULT RECOVERY 
C 

200 CONTINUE 

IFAU = IFAUtl 
NBUSPF - NBUSoptl 

C ...ENTER LEAKY TRANSIENTS 

205 CONTINUE 

DO TOO J=1,HBTU 
ITYPsFCBIBUS, J)4l 
GOTO (30 0,4 00, 50 0) , ITYP 
300 CONTINUE 

8USSTSIDUS) = !) 



SUOROUTINF BUSFLT CDC 6600 FTN V3.0-P355 OPT = l 04(^08/76 17.50.49. PAGE 2 

IF(STSI1» .NE.OI CALL SETSfStZLJ 
RFTl/RN 
C 

C ...AN ACTIVE BTU PORT FAILS 

60 400 CONTINUE 

HDH=J 

FCaiBUS,HCH)=0 

D ...IF THE BTU IS OISABLEO. GOTO 450 

NL = BTUSTS(MOMI-l 
65 BTUSTSCMDHl s NL 

IFt NL.EQ.O) GOTO 450 

C ...GOTO 300. IF IT HAS A OOU PORT THAT FAILED 

IFJBTUTVPINOH) .EQ,1» GOTO 300 

C ...IF THE BUS SWITCHING CAUSES A SYSTEM FAILURE, 900 

70 IFfCRFATRfBUSCOVn GOTO 900 

C ...ELSE, SWITCH TO BACKUP PORT 

00 420 1=1,2 

IBUS=BTUCON(MOH,I) 

IFIFCBIIBUS.HOH) .EQ,2)GOTO 425 
75 420 CONTINUE 

C ...IF CONTROL FALLS THROUGH, SOMETHING IS WRONG. 

PRINT iaaa,BTUCQN 

1000 FORMAT (/12H ***ERROR***/lXiMl 0I57J /» 

CALL PIOCNF 

00 C 

C ...INDICATE THAT BACKU^ PORT IS NON ACTIVE 

425 FCB(I8US,HDHI=1 
GOTO 300 

0 

06 C ...AN MDM IS DISABLED 

450 CONTINUE 

CALL HDHPFIMDMI 
GOTO 300 
C 

60 C ...AN INACTIVE PORT HAS FAILED 

500 CONTINUE 

FCB(BUS,J) = 0 
BTUSTS sBTUSTSUI -1 
GOTO 300 

95 900 CONTINUE 

CALL SETSTSlFCaUCFim 

RETURN 

END 
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SUBROUTINE CONF ID (ZC,NS, N,PH,PI» 

PH=-1.0 

PI=“l.O 

IF(N.EQ.D» RETURN 

XN=FLOATINI 

P=NS/XN 

DENOH=2.0*CXN»2C**2> 

PK=(2.0*XN*P*ZC*»2»/OENON 

PI=sCZC*SQRT»4.0*N»P*tl-PI»ZC**2H/DENOH 

RETURN 

ENO 
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SUBROUTINE CLEA RING. I VEC I 
DIMENSION IVECINCI 
DO 10 I=ltNC 
IVEC m=o 
10 CONTINUE 
END 
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SUBROUTINE COPY (TIHE,DETEC, REASON, NEXT) 

C THIS VERSION* MARCH 1976 

C IT COPIES THE MEH FAULT IN ACFAU. IF THERE IS TOO MANY FAULTS, REASON 
C IS SET TO 1 AND NEXT TO 5 
C 

Q VV* *«*«**»**«v »««««*«* *«***»«««««*««••**«»** 

COHMON/COMl/IOIH, TABLE *10 0,0) , PT R,EXTEN, IDETEO,RECOV,DELAY»T 

COHHON/COM3/ACFAU*10,6) ,EN0M1S,HEMSIZ,TC 

C0HH0N/C012/HTR,IFAU 

COMM0N/r015/H00N*5) ,NMORK 

COHHON/C001/ICATAS,I3 . 

COHI1ON/CO60/13TFLT 

COHHON/FCOUNT/NF*5>,NTRF*5) 

INTEGER EXTEN.PTR, REASON 

«*«**««** ««««**«»* W******** ««**I,**V« 

c 

IFAU=IFAUH 

IF fTABtEfPTR,2).LT.EMDHIS) NTR=MTRfl 
IF *NM0RK.GE.3) I3=I3Tl 
00 0 I=l,IOIH 

IF (ACFAU(I,3).NE.O.)GO TO 0 
tSTFLTs:! 

ACFAO*I,l)=TIME 

ACFAU<I,2)=TIME*TABLE*PTR,2) 

C HERE HE COUNT OUR TRANSIENTS SP12APR 

ACFAU*I,5)=TAaLE*PTR,5» 

ACFAU(I,0)=TABLE^PTR,0) 

ACFAU tI,5)=EXTEM 
ACFAU*I,6I=DETEG 
RETURN 
C 

C THERE ARE MORE THAN 5 FAULTS. 

0 CONTINUE 
RCASOK=l 
NEXT=S 
ENO 




35 


aom 



PftGE 


2 


\ 

SUHROUTINE COPY COG 660Q FTM V3.0-P355 0PT=t 04/08/76 17<5Q.49. 

SYMBOLIC REFERENCE HAP 


ENTRY POINTS DEF LINE 
2 COPY 1 


REFERENCES 
30 36 


VARIABLES SH 

TYPE 

RELOCATION 





0 

ACFAU 

REAL 

ARRAY 

COM3 

refs 

B 

21 

DEFINED 






28 

29 



2265 

DELAY 

REAL 


COMl 

REFS 

7 



0 

OETEC 

REAL 


F.P. 

REFS 

29 

DEFIMEO 

1 

74 

ENDHIS 

REAL 


COH3 

REFS 

6 

18 


2262 

EXTEN 

INTEGER 


COHl 

REFS 

7 

14 

28 

66 

I 

INTEGER 



REFS 

21 

22 

23 





■ 

29 

DEFINED 

20 


0 

ICATAS 

INTEGER 


C041 

REFS 

11 



2263 

lOETFC 

INTEGER 


COMl 

REFS 

.7 



0 

lOIM 

INTEGER 


COHl 

REFS 

7 

20 


1 

IFAU 

INTEGER 


C012 

REFS 

9 

17 

DEFINED 

1 

13 

INTEGER 


C041 

REFS 

11 

19 

DEFINED 

0 

LSTFLT 

INTEGER 


CO60 

REFS 

12 

DEFINED 

22 

75 

MEMSIZ 

INTEGER 


COM3 

REFS 

B 


0 

NEXT 

INTEGER 


F.P. 

DEFINED 

1 

35 


0 

NF 

INTEGER 

array 

FCOUNT 

REFS 

13 



0 

NOON 

INTEGER 

array 

0015 

REFS 

10 



0 

NTR 

INTEGER 


C012 

REFS 

9 

16 

DEFINED 

5 

NTRF 

INTEGER 

array 

FCOUNT 

REFS 

13 


5 

NHORK 

INTEGER 


C015 

REFS 

10 

' 19 


2261 

PTR 

INTEGER 


COMl 

REFS 

7 

14 

le 

0 

REASON 

INTEGER 


F.P. 

REFS 

14 

DEFINED 

1 

2264 

RECOV 

REAL 


COHl 

REFS 

7 



2266 

T 

REAL 


COHl 

REFS 

7 



1 

TABLE 

REAL 

array 

COMl 

REFS 

7 

1ft 

24 

76 

TC 

REAL 


COM3 

REFS 

8 

0 

TIME 

REAL 


F.P. 

REFS 

23 

24 

DEFINED 


STATEMENT LABELS DEF LINE REFERENCES 


47 

4 


33 

20 

21 




LOOPS 

LABEL 

INDEX 

FROM-TO 

LENGTH 

PROPERTIES 




34 

4 

♦ I 

20 33 

15B 

OPT 

EXITS 



COMMON 

BLOCKS 

LENGTH 

MEMBERS - 

BIAS NAHEILENGTH) 





COHl 

1207 

0 

IDIM 

111 

1 

TABLE 

(1200) 




1202 

EXTEN 

111 

1203 

IDETEC 

ID 




1205 

DELAY 

111 

1206 

T 

111 


COM3 

63 

0 

ACFAU 

(60) 

60 

ENDMIS 

(1) 




62 

TC 

111 





C012 

2 

0 

NTR 

(1) 

1 

IFAU 

(1) 


C015 

6 

D 

NOON 

(51 

5 

NHORK 

(1) 


C041 

2 

0 

ICAIAS 

(1) 

1 

13 

ID 


C060 

1 

0 

LSTFLT 

(1) 




FCOUNT 

10 

0 

NF 

(51 

5 

NTRF 

15) 


23 24 26 


24 26 27 

17 

19 

10 

24 26 27 

34 

26 27 

1 


1201 PTR Jll 
1204 RECOV ID 

61 HEHSIZ 111 


27 


26 



subroutine 


COPY 


COG 6600 FTM t/3.0-P355 OPT-1 Ok/aa/76 t7.5Q,U9 


PAGE 


STATISTICS 

PROGRAM LENGTH 67B 
COMMON LENGTH 24130 


55 

1291 



SllnROUTINE ODUFLT 


COC 6600 FrN V3.0-P355 OPT=l 04/08/76 


PAGE 


1 


I 


17.50. 49. 


5 


10 


15 


20 


ZB 


30 


35 


40 


45 


50 


55 


SUBROUTINE DDUPLTtDOUNO.DEVI 
C 

C OETERMIMES THE EFFECT OF A OOU DEVICE FAILURE ON THE DPS SUBSVSTEH 
C 

C DDUNO THE ODU THAT CONTROLS THE DEVICE WHERE THE FAULT OCCURS 
C OEV THE DEVICE WHERE THE FAULT OCCURS 
C 

C*«« V **««»* ******»*V«**»*«« »*»**«*«*»«*•*•**«*««««*«« 

INTEGER DDUNO.DEV 

COMHON/FCB7/NODUOVtOOUDVSl4) ♦ODUOVC2,4> ,n0U0VH14» 
COHHON/FCB11/NDDUTF(41 ,HODUPFJ41 ,NDOUTR(4l 
COHHON/FCB12/DDUCOVt4) ,ODUTFLt4) ,DOUTFO(4) 

COHMON/FAULT/FLTTYP 
C0HMON/CO12/NTR,IFAU 
COHHON/ST ATUS/STS ( 20 » 

COMHON/FCBUC/FCBUCF(6l 
COMHON/FL AGS /FL 6151 
LOGICAL FLG 
INTEGER FC8UCF 
LOGICAL GREATR 

INTEGER Dt)UDVS,DDUDV,ODUDVN,FLTTYP»STS 
LOGICAL LESS 

C ...RETURN IF THE OFVICE HAS ALREADY FAILED 

IF«DDUOVtDDUNO,DEV».Ea.O) RETURN 
FLG(2>=,TRUE. 

IFAU = IFAUTl 
COTOIlflO, 200I.FLTTYP 
C 

C ...THE FAULT IS TRANSIENT 

100 CONTINUE 
NTR=NTRF1 

NODUTF(OEVI=NODUTFIDEVl+l 

NL=DDUOVS(OEV) 

IF{CREATR(DOUTFO«OEVm GOTO 240 
IFIGREATRIODUTFUDEVH) return 
NQOUTR«OEVI=NODUTR(DEV)»1 
GOTO 205 
C 

C ...THE FAULT IS PERMANENT 

200 CONTINUE 

NOOUPF(OEVI=NDDUPF«nEVf*l 
C ...ENTER LEAKY TRANSIENTS 

205 CONTINUE 

DOUOtf(OOUMO,OEVJ=0 
NL=OOUOVS«OEV)-1 
OOUOVS IOEV) = NL 
IFINL.EQ.O) GOTO 250 
IFILESStDDUCOVf DEVn t RETURN 
240 CONTINUE 

C ...AN UNCOVERED FAILURE 

CALL SETSTS<FC9UDFni1 
RETURN 
C 

C ...SYSTEM FAILURE 

250 CONTINUF 
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CALL SETSTSIDDUnVNtOEVi) 

RETURN 

END 



SUBROUTINE OOUFLT 


I 

Coc 6600 FtM V3.0-P355 0PT=1 04/OB/76 17.50.49. PftGE 


SYMBOLIC REFERENCE HAP 


ENTRY 

POINTS 

DEF LINE 

REFERENCES 










2 

OOUFLT 

1 

24 

35 

48 

52 


57 






VARIABLES SN 

TYPE 

relocation 










0 

noucov 

REAL 

ARRAY 

FC012 

REFS 

12 


48 




44 


5 

DDUDV 

INTEGER 

ARRAY 

FCB7 

REFS ■ 

10 


21 

24 

DEFINED 



15 

DDUOVN 

INTEGER 

ARRAY 

FCB7 

REFS 

10 


21 

56 





1 

DOUOVS 

INTEGER 

ARRAY 

FCB7 

REFS 

10 


21 

33 

45 


DEFINED 


0 

DOUNO 

INTEGER 


F.P. 

REFS 

9 


24 

44 

DEFINED 


1 


10 

DOUTFO 

REAL 

ARRAY 

FCB12 

REFS 

12 


34 







DOUTFL 

REAL 

ARRAY 

FCB12 

REFS 

12 


35 






0 

OEV 

INTEGER 


F.P. 

REFS 

9 


24 

2*32 

33 


34 







2*41 

44 


45 

46 

48 


56 



\ 




DEFINED 

1 








0 

FCBUCF 

INTEGER 

ARRAY 

FCBUC 

REFS 

16 


19 

51 





0 

FLG 

LOGICAL 

ARRAY 

FLAGS 

REFS 

17 


18 

DEFINED 

25 




3 

FLTTVP 

INTEGER 


FAULT 

REFS 

13 


21 

27 





1 

IFAU 

INTEGER 


0012 

REFS 

14 


26 

DEFINED 

26 




0 

NODUDV 

INTEGER 


fCB7 

REFS 

10 








A 

NOOUPF 

INTEGER 

ARRAY 

FCBll 

REFS 

11 


41 

DEFINED 

41 




0 

NDOUTF 

INTEGER 

ARRAY 

FCBll 

REFS 

11 


32 

DEFINED 

32 




10 

NOOUTR 

INTEGER 

ARRAY 

FCBll 

REFS 

11 


36 

DEFINED 

36 




101 

NL 

INTEGER 



REFS 

46 


47 

DEFINED 

33 


45 


0 

NTR 

INTEGER 


C012 

REFS 

14 


’ 31 

DEFINED 

31 




0 

STS 

INTEGER 

ARRAY 

STA TUS 

REFS 

15 


21 






EXTERNALS 

TYPE 

ARCS 

REFERENCES 










GREATR 

LOGICAL 

1 

20 

34 

35 









LESS 

LOGICAL 

1 

22 

46 










SETSTS 


1 

51 

56 









STATEMENT LABELS 


DEF LINE REFERENCES 









23 

100 


30 

27 










lit* 

200 


40 

27 










46 

205 


43 

37 










62 

240 


49 

34 










66 

250 


55 

47 










COMMON BLOCKS 

LENGTH 

MEMBERS 

- BIAS NAHE(LENGTH» 








18) 


FCB7 

17 


0 Nonuou 

<1» 


i 

ODUOVS 

( 4 ) 


5 

DDUDV 





13 DDUOVN 

14 » 








(4) 


FCBll 

12 


0 NDOUTF 

( 4 ) 


4 

NOOUPF 

( 4 ) 


8 

NODUTR 


FC012 

12 


0 ODUOOV 

(4) 


4 

DDUTFL 

( 4 ) 


B 

DDUTFO 

( 4 ) 


FAULT 

1 


0 FLTTYP 

HI 










C012 

2 


0 NTR 

(1) 


1 

IFAU 

(1) 






STATUS 

20 


0 STS 

(20) 




. 






FCBUC 

6 


0 FCBUCF 

(61 










FLAGS 

5 


0 FLG 

(51 










A6 


35 


STATISTICS 

PROGRAM LENGTH 1028 66 

COMMON LENGTH 1138 75 


3 


2*36 



SUBROUTINE OFTTIH 


CDC 66G0 FTN Vj,fl-P3S5 OPT=l 04/08/76 17.50.49 


PAGE 


5 


10 


15 


20 


25 


30 


35 


40 


45 


SUBROUTINE DETT IH ( DETEC , TIHEi PLACE I 
C THIS VERSIONI MARCH 1976 

C THIS SUBROUTINE DETERMINES THE DETECTION TIME OF THE FAULT DESCRIBED 
C BY TIME and PLACEI TIME IS THE PSFUOO-OCCURRFNCETIHE, PLACE THE PSEUDO 
C MODULE. THE TIME OF THE COMPARISON FOLLOHING OCCURRENCE OF THE FAULT 
C IS FIRST DETERMINED. MEMORY FAULT MAY BE DETECTED LATER. 

C OETEC DETECTION TIME COMPUTED BY DETTIHE 
C TIME OCCURRENCE TIME OF THE F’AULT 

C PLACE MODULE WHERE THE FAULT OCCURS 
C 

W¥¥¥¥¥*W ¥¥ ¥^¥¥¥¥¥99 ¥¥¥¥¥¥¥¥¥ ¥¥¥¥¥¥¥¥ 

COMHON/GOH3/ACFAUtlO»6> ,ENDHIS«HEHSIZ»TC 

COMMON/C031/RAT1MT,I$YNC 

COHHON/DETE/POET,OETMAX,POM 

COHMON/FXEC/HINCY,RTI|TOOO,OLTIS»IDLE.SEQMAXtDOHHAX.HISITE 

COHMON7MH7PROMM,HACY 

Q W4FV «***««**««*****««««¥»•««««*****»****♦«««««***» 

C 

IF (ISYNC.EQ.OI GO TO 130 
C 

C SYMCHROMOUS SCHEDULING 

DETEC=TC* AINTtT IHE7TC1 ATC 

IF I (PLACE.NE.3.1 .OR. IRANFIO.l .LT.POMM RETURN 
IF IRANFtO.I .GT.PROMHJGO TO 110 
NC0H=RT1/TC 
GO TO 120 
110 CONTINUE 

NCOM=<MACY*RTII/TC 
120 CONTINUE 

N=IRANI1,NG0HI 
DETEC=DFTEC+ (N-11 *IC 
RETURN 

0 

C ASYNCHRONOUS SCHEDULING 
130 CONTINUE 
U=RANF(0.) 

IF ((PLACE. EQ.3.) .AND. (U.GT. POM) ) GO TO 135 
DETEC = TIMEHC*2.*RANFtO.» 

RETURN 

135 CONTINUE 

IF (RANF(0.I .GT.PROHMJ GO TO 140 
DET=RTI 
GO TO ISO 
140 CONTINUE 

OET=RTI*HACY 
150 CONTINUE 

DETEC=TIME*nET*2.*RANF(0.> 

END 
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OFAFUT CDC 6600 FTN V3.0-P355 OPT=l 04/08/76 17.50.49. PAGE 1 

SOBROUTINF OFAFLT »MDH,OEV» 

C 

C THIS ROUTINE DETERHINES THE EFFECT OF A FAULT IN ONE OF THE DEVICES 
C INTERFACED TO THE FLIGHT-AFT HOMS. 

C 

C HDH IDENTIFIES THE FA-HDH INTERFACED TO THE DAD DEVICE 

C DEV IDENTIFIES THE DEVICE 

C 

****** »*•«««»«*««««*«»* 

COHHON/FAULT/FLTTYP 
COHMON/CD12/NTR,IFAU 
COHHON/ST ATOS/STS J20 ) 

COHHON/FC810/NDFADVtDFADVS(3l tOFADV(4«3l«DFAOVN(3l 
COHHON/FCB17/NOFATF(31 ,NOFAPF(3) ,NQFATRt3» 

C0HH0H/FCB18/DFATF0t3> ,DFATFLI3) «0FAC0V«3) 

COMHON/FLAGS/FLCISI 

C0HM0N/FCDUC/FCBUCF(6» 

LOGICAL FLG 
INTEGER FCBUCF 
LOGICAL GREATR 

INTEGER OEV,FLTTYP,STS,OFADVS,OFAOV*OFADVM 
LOGICAL LESS 

C ...RETURN IF UNIT HAS ALREADY FAILED 

if(ofaov(hdh,dev».eq.o) return 

FLGf51=.TRUE. 

IFAU=*1FAU*1 

60TO(100,200»iFLTTYP 

C 

C ...A TRANSIENT HAS OCCURRED 

100 CONTINUE 
NTR=NTR*1 

NDFATFIOEVI=NOFATF(DEVm 

NL=OFAOVSlOEV> 

IFKDEV.EO.D.AND.INL.LE.zn GOTO Z50 
IFIGREATR<OFATFD(OEVn .AND.fNL.EQ.lIl GOTO 000 
IFICREATRIOFATFUDEVm RETURN 
NOFATRfOEV)=NDFATRtOEVI*l 
GOTO Z05 
C 

C ...ITS A PERMANENT FAULT 

200 CONTINUE 

NDFAPF tOEV) = NOFAPFlDEVm 

0 ...ENTER LEAKY TRANSIENTS— RECONFIGURATION 

205 CONTINUF 

OFADVIMOH»DEV)=0 
NL=DFADVS <0£V) -1 
OFAOVSTDEV»=NL 
IFINL.EO.O) GOTO 250 
IF(NL.GT.1» RETURN 
IFTLESSTOFACOVTDEVm RETURN 
C 

C ...A SET OF DEVICES IS NO LONGER FUNCTIONAL 

250 CONTINUE 

CALL SETSTSIDFAOVNIDFV)> 

RETURN 
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C ...AH UNCOVEREOtCATESTROPHTCl FAULT OCCURRED 

800 CONTINUE 

CALL SETSTSJFCBUCFf6l J 
RETURN 

60 END 
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SUBROUTINE OFFFLTfMOMNO.DEVJ 
C 

C OETERMINFS THE EFFECT OF A FLIGHT FORHARD HDH DEDICATED DEVICE 
C FAULT. 

C 

C HDHHO IDENTIFIES THE FF-HDH THAT IS INTERFACED WITH THE BAD DEVICE 
D DEV IDENTIFIES THE TYPE OF DEVICE THAT FAILED 

C 

******************************* 4 * ♦»»*•••*•*•*•***••*•• 

COHHOH/FCB07NDFFDV,DFFDVSI6) ,DFFOV (4,6J ,0FF0VN(6I 
COHMON/FCB13/NDFFTF<6) ,NDFFPF(6) .N0FFTRI6) 
COMHON/FCni4/DFFTFD(6,4) ,DFFTFL ( 6) »OFFCOV (6, 3) 

OOMHON/FAULT/FLTTYP 
C0HH0N/C012/NTR,IFAU 
COHHON/ST ATUS7STS 120) 

COMMON/FCDUC/FCnUCF(6> 

COHHON7FLAGS/FLG15) 

LOGICAL FLG 
LOGICAL GREATR 
INTEGER FCBUCF 

INTEGER DEV«OFFDVS,DFFOV*OFFDVN,FLTTYP,STS 
LOGICAL LESS 
C 

C ...RETURN IF UNIT HAS ALREADY FAILED 

IFIOFFOVTHDHNO.DEVI.ED.O) RETURN 
IFAU=IFAUFl 
FLG<3»=!.TRUE. 

GOTOC100,200),FLTTYP 

C 

C ...A TRANSIENT HAS OCCURRED 

100 CONTINUE 
• NTR=NTR*1 

H0FFTF(DEV)=NDFFTF(DEVIF1 
C ...IS THE FAULT DETECTED 

NL=OFFDVS tOEV) 

IF«GREATR<DFFTFa<OEV.NL))) GOTO 000 
C ...IS TRANSIENT RECOVERY SUCCESSFUL 

IFIGREATR«OFFTFL<DEV))) RETURN 
NOFFTR«DEVI = NOFFTR (DEV) ♦! 

GOTO 205 
C 

C ...A PERMANENT FAULT HAS OCCURED 

200 CONTINUE 

NDFFPF tOEV)=NQFFPFtOEV)+l 
HL=OFFOVSTDEV) 

C ...ENTER LEAKY TRANSIENTS 

205 GONTINUF 

OFFOV )H0HN0,OEV) = 0 
NL=DFFDVS(DEV)-1 
DFFDVSTDEV)=HL 
IFCNL.EQ.OI GOTO 250 
IFaESS<DFFCOVtDEV»NL))) RETURN 
C ...THE DEVICE CROUP IS NO LONGER FUNCTIONAL 

250 CONTINUE 

CALL SETSTS(DFFDVN)OEV)) 


IMODUCIBILnY 01* TO 
oMinal page tb pooi^ 
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RAGE 


RETURN 


...THE FAULT HAS UNDETECTED 

ROO CONTINUE 

CALL SETStslFCDUCF(4H 

RETURN 

END 
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SUBROUTINE EXOUR«FftU,,N,nURI 

C this VeRSIONI 25 FEBRUARY 1974 

C IT GENERATES N EXPONENTIAL DURATIONS 
C FAU ARRAY WHERE DURATIONS ARE STORED 

5 C N DIMENSION OF FAU 

C DOR mean duration 

C 

*«*««*•» 

DIMENSION FAU(N) 

10 C **** «««*#« V* *»*«*«**«*««*«*»»««**»*«*««»*«*«*«*«*»«*»*««•««»««»* «««««.» 

C 

no 40 K=1,N 
41 U=RANFI0.» 

IF (U.EQ.O.)GO TO 41 
15 FAU(K»=-OUR»ALOG«UI 

40 CONTINUE 
RETURN 
END 
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ENTRY POINTS 
a EXDUR 
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DEF LINE 
1 

SN TYPE 
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F.P. 

REFS 

IS 

DEFINED 
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FAU 

REAL 

ARRAY 

F.P. 

reVs 
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DEFINED 

1 

15 

34 
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INTEGER 



REFS 

15 

DEFINED 
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INTEGER 


F.P. 

REFS 

9 

12 

DEFINED 
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35 
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REAL 



REFS 

14 

15 

DEFINED 

13 

EXTERNALS 

TYPE 

ARCS 

REFERENCES 







ALOG 

REAL 

1 LIBRARY 

15 







RANF 

REAL 

1 

13 






STATEMENT LABELS 


DCF LINE 

REFERENCES 





0 

40 


16 

12 






' 15 

41 


n 

14 






LOOPS 

LABEL 

INDEX 

FROH-TO 

LENGTH 

PROPERTIES 





15 

40 * 

K 

12 16 

138 

EXT 

REFS 





STATISTICS 

PROGRAM LENGTH 


44 B 


36 


PAGE 


SUBROUTINE EXPON 


CDC 6600 FTN V3.0-P355 OPT=l 04/08/76 


17.50.49 


PAGE 


1 


SUBROUTINE EXPONtFAU»N ,RTIHE .NACTIVi RLAHOAt 
C THIS VERSION I MARCH 1976 

C IT GENERATES N OR LESS POISSON ARRIVAL TIMES. GENERATION STOPS WHEN 
C RTTME IS REACHED. 

5 C FAU ARRAY OF ARRIVAL TIME'? 

C N DIMENSION OF FAU 

C RTIHF UPPER LIMIT ON ARRIVAL TIH.E 

C NACTIVE NUMBER OF UNITS RECEIVING FAULTS AT RATE RLAHBOA 
C RLAHBOA FAULT RATE IN EACH UNIT 
10 C 

«»«*»«««* *•<.«***«» »**«»•*«« «•*«««»« 

DIMENSION FAUINl 

Q «««« **¥««**««« *««««*«*«***«««*«»«*«•»*«*•««*«*«**«** 

C 

15 TIME=0. 

RLAHB0=NACTIV*RLAM0A/3.6E6 
IF (RLAMBD.EQ.O.I GO TO 19 
DO 17 K=1,N 
170 CONTINUE 

SO UsRANFfO.t 

IF lU.EQ.O.) GO TO 170 
Y=J-l,/RLAMnOI*ALOGIUI 
riME=miME 
FAU(KI=TIHE 

S5 IFITIHE.GT.RTIHEIGOTO 18 

17 CONTINUE 
SO CONTINUE 

FAU(N)=RT IHE 
RETURN 

30 18 CONTINUE 

N=K 

RETURN 
19 COMTINUF 
N=1 

35 GO TO SO 

END 


g| 
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REAL 
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REAL 
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extent cnc 6600 FTN V3.0-P355 OPT=l 04/08/76 17.50,49. 

SUBROUTINE EXTENT <EXT , OUR, HOD» 

THIS VERSIONI 16 JULY 1974 

THIS SUBROUTINES COMPUTES THE EXTENT OF A FAULT HHOSE DURATION IS OUR. 

OUR UNUSED 

EXT FAULT EXTENTI 0 NO MEMORY DAHAGEU MEMORY DAMAGE 

HOD LOCATION OF THE FAULT 


«***«« 

COHMON/PERH/LAST(5» , MINI NT ,PSUC 
INTEGER EXT 
REAL HOD 


EXT=0 
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13 
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30 
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Sun^OUlINC F «!ir.ru (MIC. Rt IHC , NF«UT , KHOtlUl 
C fH|S WFPSIO'H N»RCH 1SF6 

c rouSEriE GE»*'PSTrs UP 10 300 f euiir. tuFint is less th*m scc» 
r. ?HE9f 4?£ u»> 10 5 ::o«puffPsrM»cnvr I muh up jo s modules rrmoout. 

C IMF s COMPUJfPS »RE lOF'ITlCi. FOP F»CH MOOUlf, IME COMPUTER IS 
c RtmoMir OETEPMUiFO. un more tm»»i J3o f»uiis per module. 

C MO MORE IHAM ISO PCPHSMruls Aiio tso IP*H5tCMIS. 

c iM c*SE Of 9IIRSI ni sTRinui lOM, ONE 'US TO ec careful that there mill 

C Mor OF KOPf JMlM IJ FAULTS AT AMT TfMf IM ACFAU. IF IKIS SHOULD 
C MAPPFH, IHCAEASF njH AMO THF SI7F OF ACFAU. 

C AVn'JRdI » AVFRir.E OUOAfrOJI 0‘ ll«f IP»MSIFMTS I F X POME ItT T AL OISTRIB.l 
C DURST ■ FAULT PATE CURliir. THF OUPSI 
C nCURMt ”11 UMIFOOM OIStRIOUTIfKI F QO OURAJ |OM 

c nnuRtri • ? • ExPourwiMi nisTRiourioM for nuRArrsM 

C OPERIIl » 1 « POlSSOM OtSIRinuTtOH fO» Ari’IvALS Of PERMANENTS 
C OTRATI) » I • POISSOJ) 3 ISTRI<MIM 0 *I FOR ARRIVALS OF TRANSIFMTS 
C DTRAIII ■ ? I 9 URST DISTPIOUTIOH FOR ARRIVALS Of TRANSIENTS 
C DURA • OURATIOH OF THE flURSI 
C MAC ' rupiSFR Of '•OMP'lirPS 
C MFAUI. T TOTAL KUMOru Of FAULTS 
C RLAM .9 » nURSI OCCUPPENCf RATE 

C PHAXIItl • MAXINCri riURATIOM OF THE IBAHSlEhTS (UNIFORM OISTRIOUTIOHT 
c PHiHtlll ” MINTH<J)1 DURATION OF IMF TRAMSIFhIs (UNIFORM OISTRIOUTIOHT 
C MHOOU ■ HUM9I R Cf DIFFERENT UNI IS IM A COMPUTER 
C PITiiE ■ MISSION IIMF 
C TAOLEIItU ” rXCURREMCE TIME 

C TADLEII.?! ■ DURATtWI (- RIIHf IF PFPMANFNTI 

c FAniriitii ■ HooiAE 

C TAOLfTItGt » rOMPUTFR 

C 

C 

c 

common /CONI/ 10 TM, TAOlFflOO.AJ , P7 P . t I T F N, I Of T EC . PCCOV, Ott A V , T I Mf 
roMMOM/CO*17/MIS.IF'JLl 

COMMON /CO 1«./Pt AM0P(ST ,RL AMDJ (S| .RHIMI (SI .RMAXMSI . AVOUR<SI 

COMMON/C078/HJ05IM,M5PA 

COMMOH/rO 35/P^UPTSI 

CO.MMOH/Cn«,0/II I I, rFFF,rif(MM,NI(T 

COMMOll/FL this/ NEC vn C I , MSTSE C t J J , Pf P 10 , IF R 10 

IKTECFR OPFRISI tOrRS(ST i(HTUR(':| 

dimension HERCl (ST .MFRC7 (S| 

DT HENS ION MATSI 

nIMFHS ION RL AMD (SI .DURA (S I , DURST (SI 

dimension ofdouuooi 

DTHCMS IfH FAUL T M 1S3 tSi Tl .FAUlfPIlSa ,SI .EAiILT ( IS9I 


SO 


ss 


MKIS IS SIT TO 1 MHEM MIS A SD THAT IltE INPUT TEST NORMS 
MM IS- MIS* 1 
DO ? Irl.KNOnU 
'(PER* I so 
NTRA* I 50 

SET HACIIVE TO THE TUmDSR OF MODULES OF flCll KIMO 

cc TO (s.s.s.is.si. r 

S CONTlNUf 
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70 
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85 
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95 


100 


105 


NflCrlV=NAC 
GO TO 17 

8 continue: 

M«CTIV=NTO 
GO TO 17 

16 CONTINUF 

IFlNMIS.ME.n GOTO 2016 
CALL ROIOFR(PFRIO,TFRIOt 
CALL PFCBCF 
PFRIO=PFRI07185 
TFRIO=TFRIO/lE6 

2016 CONTINUF , 

CALL EXPON{FAULT,NPER»RTIHE,l( PFRIOI 
IF(NPFR.LT.150J GOTO 2010 
IFULL=t 
RETURN 

2010 CONTTNUC 

00 2020 J=l,NPER 

FAULTPtJ, DEFAULT (J) 

2020 CONTINUF 

CALL EXPONlFAULT,NrRA,RTIHE,l,TFRIO> 
IF1 MTRA.lt, 150) GOTO 2030 
IFULL=1 
RETURN 

2030 CONTINUF 

IFlNTRA.GT.l) GOTO 2035 
FAULT! 11,I»1) = FAULTH) 

GOTO 2 

2035 CONTINUE 

DO 20AQ J=l,NrRA 

FAULT! U. I, 1)=F AULT tJ> 

CALL TFISOlIUNIT.l) 
FAULTTIJ.1.3)=1UNIT 
FAULTT(J,I,2)=0.0 
2060 CONTINUF 
GOTO 2 

17 CONTINUF 
NAII)=NACTIV 

IF CNHlS.NE.l) GO TO 1 

READ 3,DPERn).DTRAm,0DUR(I) 

1 CONTINUF 
K=OPERn) 

GO TO (A.61 ,K 
6 CONTINUE 
K=DTRA (I) 

GO TO (7.31*9) ,K 

9 CONTINUE 
K=OOUR (T) 

GO TO (10*30.2) ,K 
C 

C GENERATION OF THE PFPHANFNTS (POISSON) 

4 CONTINUE 

IF (NHIS.NE.l) GO TO 44 
, READ 1054RLAHOP(T) 

flLAHDP(I)=PLAMOP(I)/ir6 


110 
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PRINT 990tI.RLAHnP(n 
IF (HSPA.EQ.O) GO TO «*4 
READ 105,RHUPlt> 

PRINT 99T,RHUPII) 

IIS A4 CALL EXPONIFAULTiNPER*RTIHE»NACTIV,RLAHnP(I) ) 

• IF (NPER.LT.15BJ GO TO 14 
IFULL=1 
RETURN 
14 CONTINUE 

120 00 11 J=1,MPER 

FAULTPIJ, DEFAULT t J) 

11 CONTINUE 
GO TO 6 
C 

125 C GENERATION OF THE TRANSIENTS (POISSON! 

7 CONTINUE 

IF (NHIS.NF.U GO TO 77 
RCAO 105,RLAHf)T(I» 

RLAHDTm =RLAH0Tn»71E6 
130 PRINT 9B0,RLAHar(n 

77 CALL EXPONlFAULT.NTRA.RTIMF.NACTIV.RLAHDTdl ) 

IF (NTRA.LT.150) 60 TO 12 

1FULL=1 

RETURN 

135 12 CONTIHUF 

00 13 J=1,NTRA 
FAULTTIJ,I,1!=FAULT(JJ 
C CHOOSE THE FAULTY COMPUTER 

FAVJLTT U, I,3) = IRAN(1 .NACTIVT 
140 13 CONTINUE 

GOTO 9 
C 

C GENERATION OF THE OURSTS 

31 CONTTNUF 

145 IF INMIS.NE.U GO TO 32 

READ 999,RLAM0m ,OURA ( II , BURST 1 1) 

RLAHBtl!=PLAHG(IJ/lE6 

PRINT 990 ,RLAHB (I) ,OURA ( I ) .nURST II ) 

32 CONTINUE 

150 NTRC=150 

CALL EXP 0 N( 0 EnBU,NTRCiRTIME,NACTlV,RLAH 9 m I 
L=1 

no 35 J=I,NTR0 

IF lOEBOUfJ! .GT.RTIHE) GO TO 30 
155 36 CONTINUE 

U=RANF (a.) 

IF (U.EQ.D.) 60 TO 36 
U=-OURA(n *ALOG(U)*100 0. 

C HE AVOtn A BURST COMING UPON A PREVIOUS BURST 
160 U=AHITmiJ,OEn9UIJHI -OEQOUC.JM 

.HTRO=l5a 

CALL E XPON (F AUL T, NTRO*U,l, BURST m *360 0.» 

M=IRAN(1,NACTIVJ 
00 37 K=l,NTPF) 

IF (FAIILTIKl .GT.U) GO TO 35 
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190 


195 


ZOO 


205 
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215 


FAULTT (L.I>H = nERPU(J>+FAULT(K> 

FAULTT(L.I,3>=H 
L=L + 1 

IF a.GF. 300) GO TO 

37 CONTINUE 
35 CONTINUE 

38 rOMTlMUF , 

FAULTT IL* T,ll=l(l.*RriHE 
NTRAsL 

IF (L.LT.150) GO TO 9 
IFULL=1 
RETURN 
C 

C GFNERATION of THE TRANSIENT OURATIONS lUNIFORH) 

10 CONTINUE 

IF INHIS.NE.U GO TO 1010 
READ 19,RHINim,RHAXim 
AVER=!RMAXim »RMIMI(in/2 
PRINT 950, AVER 

1010 CONTINUE 

C IF HO transient go TO 2 

IF lNTRA.LE.il no TO 2' 

CALL UNIFlFAULT.NTRA.RHINIin .RHAXim J 
GO TO 1011 
C 

C GENERATION OF THE TRANSIENT DURATIONS lEXPONENTI AL» 

30 CONTINUE 

IF (NKIS.NE.l) GO TO 3030 
READ 105, AVDURtll 
PRINT %9,AVDUR<I) 

3030 CONTINUE 
C IF NO TRANSTFNT GO TO 2 

IF (NTRA.LE.il GO TO 2 
CALL FXOUR(FAULT,NTRA,AVOURm I 
G 

C COPY DURATION 

1011 CONTINUE 

00 15 J=1,NTRA 
FAULTT (J,I,2» = FAULTtJ) 

. 15 CONTINUE 

2 CONTINUF 
C 

C SO AT HIS POINT, SPCRTSFANS, HE HAVE CREATED THO SEPERATE FAULT 
C TARLFS, ONE FOR PERMANENTS AND ONE FOR TRANSIFNTS — NON IS THE EVER 
C PRESFHT TINE TO HAKE THINGS PERFECTLY CLEAR BY MERGING THE TWO TABLES 
C INTO ONE GRANDIOUS TIHE-OPDFRTO FAULT TABLE, 
no 21 I=l,NHOnU 
MERGl (11=1 
MFRG2m = l 
21 CONTINUF 

no 29 J=l,flFAUT 
RHINPsRTIHE 
RMINT= RTTHE 

C THE FOLLOWING LOOPS FINDS THE JTH FAULT 
DP 22 I=l,NMOnU 


SP03APR«i 

SP03APRA 

SP03APRA 

SPOIAPRA 


220 
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225 


230 


235 


240 


2.45 


250 


255 


260 


265 


270 


IMERG1=HERGI(I> 

IFCFAOLTPltHERGl,l».GT.RHTNP» CO TO 23 
RHINP=FAULTP(IMFRG1,I» 

HP=I 

23 nONTlHUF 

IMERG2=HERG2(I) 

TF<FA«LTTtlHERC2,I,l).GT.RHINT) GOTO 22 

RMIMT=FAULTHIHFPG2, I,D 

MT=I 

2? CONUNUE 

TABLE <J,U=AHIMl«RHINPiRHINT> 

C IF NO WORE FAULT RETURN 

IF CUABLEJJ.n .CE.RTIHEl . ANO. tJ.LT.HFAUin RETURN 

IF <J.LT.NFAUT» GO TO 28 

1FULL=1 

RETURN 

28 CONTINUE 

IF (RHINP.GE.RMTNTJGO TO 25 
IF<HP.E0.4I CALL PFISOdUNIT*! > 

IF(HP.NE.4T IUNIT = lRAN(t«NMMPn 

TABLE U,4»=IUNIT 

TA0LE»J»2)=36.E12 

TABLE »J,3)=MP 

HFRGl (HP)=HERGl (MPI+1 

GO TO 26 

25 CONTINUE 
IMERG2=MFRG2(MT) 

TAnLEU,2>=FAULTTaHERG2,HT.2) 

TABLET J,3>=MT 

TABLE(J,4I=FAUL Tr(rM£RG2,HT,3) 

HERG2(HT>=HERG2 (HTTM 

26 CONTINUE 

29 CONTINUF 
RETURN 

Q *«««««•* ***«*«**«*«* IT* *«««»*« 

C » FORHATS * 

C ***«**««*»»***«***««*«*«*»«*»***« 

3 FORNAT (3It) 

19 FORMAT t2E10.3» 

105 FORMAT (E10.31 

949 FORMAT (17X, 18HTPANSTENT DURATION, 7X,E9.2f 
1 27H milliseconds lEXPONENTI AL II 

950 FORMAT (28H AV»'RAGF TRANSIFNT DURATION ,F7.0, 

1 ?3« MILLISECONns TUNIFORMl) 

980 FORMAT 117X,14HTPANSIENT RATF,7X, E9 .2,9H PER HOUR) 

990 FORMAT tSX,6HH0DULE, 13, 17H l PFRMANENT RATE , 7X , E9. 2 , 9H PER HOUR) 

997 FORMAT 117X,12HDnRMANT RATE.9X, E9.2,9H PER HOUR) 

998 FORMAT (17X,21H9URST OCCURPENCF RATE,E9.2,9H PER HOUR/ 

1 17X.14H9URST OUR ATI ON, 3X, Ffl . 1 , 22H SECONDS TEXPONEHTIAL)/ 

2 17X.16H0URST FAULT RATE,5X, E9.2,l IK PER SFCQNO) 

999 FORMAT 13E10. 3) 

FNO 


SP02APR4 

SP02APR4 

SP02APR4 
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OFFINCO 
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INTEGER 
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1 
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1099 

NTRA 

INTEGER 
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NTRB 
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REFS 

29 

PFRIO 

REAL 
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2261 

PTR 

REAL 
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2269 

PECOV 

REAL 
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REFS 
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REAL 
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C019 
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5 
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17 
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REFS 

12 
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REAL 

ARRAY 
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REFS 

1057 

RHINP 

REAL 



REFS 

1060 
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REAL 



RFFS 

0 

PHUP 

REAL 

ARRAY 

C033 

PEFS 

0 

RTIHE 

REAL 


F.P. 

REFS 






217 

1 

TABLE 

REAL 

ARRAY 

COMl 

RCFS 






298 

25 

TFRIO 

REAL 
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REFS 

2266 

TIME 

real 


COHl 

REFS 
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FHT 
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474 

38 


172 

154 

169 





230 

44 


115 

108 

112 





267 

77 


131 

127 
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195 
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990 

FMT 
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997 

FHT 
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1007 
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57 

2010 


72 

69 
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COM! 

1207 

0 

IDTM 

ID 

1 

TABLE 

11200) 

1201 

PTR 

ID 



1202 

EX TEN 

<1) 

1203 

lOETEC 

ID 

1204 

RECOV 

It) 



1205 

DELAY 

m 

1206 

TIME 

ID 




COM2 

2 

0 

MIS 

U) 

1 

IFULL 

ID 




C014 

25 

0 

RLAHOP 

«5) 

5 

RLAHOT 

15) 

10 

RHINI 

15) 



15 

RHAXI 

15) 

20 

AVOUR 

15) 




C028 

2 

0 

HonsiH 

ID 

1 

NSPA 

ID 



' 

C033 

5 

0 

RHUP 

I5J 







CO40 

4 

0 

IIII 

ID 

1 

FFFF 

ID 

2 

NNNN 

ID 



3 

NIO 

ID 







FLTMIS 

22 

0 

NFCV 

110) 

ID 

NSYSF 

110) 

20 

PFRIO 

ID 



21 

TFRIO 

ID 
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SU8R0UTINF FCOFLT (TI ME .PLACE t OUR tHEX T ) 

C 

C THIS SUBROUTINF IS INVOKEO BY FTFAU UPON THE OCCURRENCE OF A FAULT 
C IN THE FLIGHT CRTTAL BUS PARTTIIOH. THE APPROPRIATE SUBROUTINE 
0 IS INVOKED TO STHULATE THE SYSTEMS RESPONSE TO THE FAULT, FCBFLT 
n THEN CH>=^CK3 THE PESVLTING SYSTEM STATUS. IF A FLIGHT CRITAL FAILURE 
C OCCURRED, THE APPROPRIATE COUNTFR IS INCREHENTFD, AND NEXT IS SET TO 
C tn* TO INOICATE SYSTEM FAILURE. CONTROL RETURNS TO FIFAU. 

C 

*♦*»*•♦**»****»■**»•*»*»**♦»♦»»•***»•***♦*♦»*»♦♦* ****** ************* 

INTEGER REASON 

INTEGER PLACE, STS, FLTTYP, GROUP 
INTCGFR FCQSF.FSLFCrt 
COMMOM/FCnONT/FCD'5F,FALFC(M5 0> 

COHHON/FAULT/FLTTYP 
COMMOM/DFBUG/IDEOUG 
COMMON /ST ATUS/SrS 120 > 

COMMON/COM7/REASON 
COMMON/COT6/RHISTM 
OIHENSION PLACE 15> 

C 

C 

GROUP=PLACE(2> 

FLTTYP=1 

IFIOUR.GF.RMISTHJ FUTTYP=2 
GOTO (10, 2 0,3 0,4 0,50, 601 .GROUP 
C ...BUS FAULT 

10 CONTINUF 

CALL BUSFlT(PLACFni ) 

GOTO 209 

C ■' ...HDM FAULT 

20 CONTINUE 

CALL MOMFLTtPLACEO) ,PLAnF(4n 
GOTO ?0Q 

C ...OOU FAULT 

30 CONTINUE 

CALL DOUFLTIPLACEtSt .PLACFtun 
GOTO 2 00 

C ...nCDICATEO OFVICF FAILURF. FF-MDH 

40 CONTINUE 

CALL OFFFLKPLACEni ,PLACF(4M 
GOTO 2 OP 

C ...NON-OEOTCATED OEVICE FF-HDM 

50 CONTINUE 

CALL NFrFLT(PLACE(31 , PL ACC (A 1 , PL ACE ( 5)) 

GOTO 200 

C ...nrolCATEt) CEVICF FA-HOH 

60 CONTINUF 

CALL 0FAFLT(PLACF(3» ,PLACF(4I) 

GOTO 200 
C 
C 

200 CONTINUF 

IF (STS U » .FO.ni pPrURN 
RFASON=3 
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NFXr=5 

fcdsf=fc8';fu 
^}=STS(t) M 
K^STSIN> 

FAtFCO(K) =FALFOIHK( f 1 

RFTURN 

END 
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INTEGER 
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13 

14 
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DEFINED 

60 

0 
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INTEGER 


FCnCHT 

REFS 

13 

14 

57 

OEFINEO 

57 

u 

FLTTYP 

INTEGER 


FAULT 

REFS 

12 

IS 

DEFINED 

24 

25 

1D4 

GROUP 

INTEGER 



REFS 

12 

26 

OEFINFf) 

23 


0 

T0FPU6 

INTEGER 


orsuG 

“OFS 

16 





106 

K 

integer 



RFFS 
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OEFINEO 

59 



irn 

M 

INTEGER 



REFS 

59 

DEFINED 

S8 



a 

NEXT 

INTEGER 


r.p. 

PEFINED 

1 

56 




0 

PLACE 

INTEGER 

ARRAY 

F.P. 

REFS 

12 

20 

23 

29 
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DEFINED 

1 



0 

REASON 

INTEGER 


COHT 

REFS 

11 

16 

dffimed 

55 


0 

RNISTN 

REAL 


C036 

REFS 

19 

25 




0 

STS 

INTEGER 

ARRAY 

status 

REFS 

12 

17 

54 

58 

59 

0 

TIHF 

REAL 

*UNUSFO 

F.P. 

nEFitieo 
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29 








onUFLT 


2 

37 
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49 
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41 
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33 
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3 

45 
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26 
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55 
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91 
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FAULT 
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FLTTYP 
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DEDUG 
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0 
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STATUS 
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STS 
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SUBROWTINE FCBIN 

COMHON7IFCai/OUSSISt8J ,FCB«8,10> iBTUSTS(lO) 

COHHON/FC B2/NnTU,BTUTyP<10),OTUCOtH10»4»iBTUNO(10j 
COMHON/FC83/0USTFl.,nUSCOV 

5 COMHOM/FCB5/BTUCOtfUO»2» «6TUTFtao,2> 

COHMON/IFCB7/NODU[)V,OOUOVS<l*IiDDUDVf2.l») 

COHMOM/IFCBB/NB FFOVf DFFO VS (6 1 t OF FOV ( 6> 
C0MH0N/IFC89/NNFFDV, NFFOVS 12 , I* I , NFFCV C 3, 2 1 4 J 
COHHON/IFCB10/NOFAOV»DFADVSt3) ,OFAOV »4i3) 
iO C0HH0N/FCR12/0f)UC0Vt«iJ ,DDUTFt(4J .ODUTFO ( 4, 2) 

COM«ON/FCB14/OFFTFO(6i41 ,t)FFTFL{6J ,0FFC0Vt6,31 
COMMON/FOB16/NFFTFO(4»2) ,NFFTFL«4,2> ,NFFCOV<4» »NFFPF0<4,2) 
COHHON/FCP18/DFATFO«3»,DFATFL»3> ,0FAC0V»3> 
C0HH0N/FC0NH/DDUNrtl41 ♦0FFNH<6) tNFFHH(4l ,OFANH(3) 

IS C 0 HH 0 N/FC 0 NM 1 / 8 USNH«S> ♦MnOUHH(2) ,HFFNMC4I t MFANHI4> 

INTEGER BUSHH 
OIKENSION ICNT(3> ,IRFC(6) 

INTEGER QOUN».OFFNH,NFFNH,OFAHH 
REAL NFFTFO,NFFTFL»NFFCOV,NFFPFD 
20 INTEGER BUSSTS* FCB,BTUSTS»BTUTYPiBTUCOMf BTUNO 

INTEGEROOUOVS,DDUOViOFFnVSiDFFDV,OFAOVS,DFAOV 
DATA BUSSTS/8*!/ 

NTYPS=3 
READ 2001, NBTU 

25 00 10 1 = 1,8 

READ 2002, (FCOa.J) ,J=1,NBTU) 

ID CONTINUE 

READ 2002, JBTUTYPd), 1=1, NDTO) 

DO 20 1=1,NTYPS 
30 ICNT<IJ=0 

20 CONTINUE 

DO 50 J=1,NBTU 
ITYP=BTUTYPtJ» 

IFdTYP.GT.NTYPSl STOP 1021 
35 ICNTaTYPI=ICNTIITYPJH 

BTUNOU) = ICNT <ITYP» 

ISOH=0 
DO 40 1=1,8 
lPRT=FCaa, J> 

40 IFUPRT.EQ.OI GOTO 40 

IFIIPRT.LT.O.OR.1PRT.GT.2J STOP 1022 
lSUM=ISUMtl 
BTUCON»J,ISUHJ=I 
40 CONTINUE 

45 BTUSTS« J»=ISUH 

50 CONTINUE 

READ 20D1,NDDUDV 

IF! INOOUOV.LT.OJ.OR. <NODUOV.GT.4l) STOP 1023 
DO 60 1=1,2 

so READ 2002, (ODUDVd, J), J=l,NOOUDV} 

60 CONTINUE 

DO 80 J=t,NOnUDV 
ISUM=0 
DO 70 1=1,2 

55 IFlDDUDVd, J1 .NE . 01 ISUH=lSUH4l 
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60 


65 


70 


75 


RO 


as 


90 


95 


IQO 


105 


110 


70 CONTINUE 

nounvs<j»=isuH 

80 CONTINUE 

RFAO 2001,NOFFOV 

IFCNnFFnV,LT,B.OR.NnFFOV.GT.6l STOP 1029 
00 90 1=1»4 

READ 2002, (OFFOVCI, J) , J=1,N0FFBV> 

90 CONTINUE 

DO 110 J=1,NOFFOV 
ISUM=6 

DO lOO 1=1,4 

IF(OFFOVtr» J> .ME.OJ 1SUM=ISUMH 
100 CONTINUE 

OFFOUSt J»=ISUH 
110 CONTINUE 

RE&O ?OOt,NUFFOV 

IFJNNFFOV.lt. 0. OR. NNFFDV.GT. 4) STOP 1025 
READ 2002, IIREC <n ,I = li.NNFFOVI 
DO 130 J=1,NNFFDV 
00 1 20 1 = 1,2 
11=0 
12=0 

IFTIRECJ J) .LE.OICOTO 115 
1RECUI = IREC<J»-1 
11 = 3 
12=1 

115 CONTINUE 

NFFDVSCI*J»=I1 
00 120 K=l, 3 

NFFDVtK,I,J)=I2 
120 CONTINUE 
130 CONTINUE 

READ 2001,NOFAOV 

IFflMOFAOV. LE.0». OR, JMDFAOV. 61, 3M STOP 1026 
DO 140 1=1,4 

READ 2002, JOFAOVJI.Jl , J=l, NOFADVI 
140 COHTINUF 

no ISO J=1,NDFADV 
ISUM=0 

00 145 1=1,4 

IFIOFADVIl, Jl.NE.O) ISUN=ISUM+1 
145 CONTINUE 

OFAOVSJ J)=1SUH 
150 CONTINUE 

RFAO 2fl04,(OUSNMtri, r=l,8l 
READ 2004, (HnoUNKtn ,1=1,21 
REAO 2004, (NFFNMm, 1 = 1, 4J 
READ 2004, CHFAN9J1), 1=1, 4> 

READ 2004, jnoUNmi), 1=1, NOOUDVt 
READ 2004, (OFFNMJII, 1=1, NDFFDV) 

REAO 2004, IKFFNHJn, 1=1, NNFFDV) 

READ 2004, <OFANN(I>, 1=1, NDFADV) 

READ 2003,BUSTFL,BUSCOV 
00 160 J=1,HBTU 

REAO 20 03,DTUTFL(J,l),nTUTFL(J,2>,0TUCOV(J,U,BTUCaVlJ,2) 
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115 


120 


125 


130 


135 


160 CONTINUE 

REAO 2003,(DOUTFLtI>.I=l»NnDUOV> 

READ 2003.IO0UC0Vin »I=1 tND0UDV) 

READ 2003i (ODUTFD(t,l> tI=l*NODUDV> 
READ 2003i IDOMTFDa,2»,I = l,NDDUDV> 
READ 2003, JDFFTFUII ,1 = 1, NDFFDVI 
DO 170 J=l,3 

REAO 20 03, JDFFCOVJI,J) ,I=l’,NOFFDV) 
170 CONTINUE 

DO 180 J=l,4 

READ 2003, (nFFTFOtl,J) ,l=l,NOFFDV» 
180 CONTINUE 

REAO 2003,1NFFTFL(I,1),I=1,NNFF0V) 
REAO 2003,(NFFTFL(I,2» ,I=l,NNFFOU) 
REAO 20a3«(NFFTF0n,ll ,I=1,NNFF0V) 
REAO 20D3,JNFFTFDtI,2» , 1 = 1 ,NNFFO'v ( 
READ 2003,CNFFPFO(I,li ,I=1,NNFFDV» 
REAO 2003, (NFFCOVm, 1=1, NNFFDV) 

REAO 2003, lOFATFUn ,1 = 1, NOFAOV» 
read 2003, lOFATFOm ,1=1, NOFAnVJ 
REAO 2003, tOFACOVtl) ,1=1, NOFADV) 
RETURN 

2001 FORMATtOIlO) 

2002 FORKAT(20I2I 

2003 FORNAKOFIO.OI 

2004 FORMAT (OAIO) 

END 
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13 

BTUCON 

INTEGER 

ARRAY 

FCB2 

REFS 

3 

20 

DEFINED 

43 




0 

BTUCOV 

REAL 

ARRAY 

FCB5 

REFS 

5 

DEFINED 

2*110 





63 

BTUMO 

INTEGER 

ARRAY 

FCB2 

RFFS 

3 

20 

DEFINED 

36 




130 

BTUSTS 

INTEGER 

ARRAY 

IFCBl 

REFS 

2 

20 

DEFINED 

45 




2A 

BTUTFL 

REAL 

ARRAY ■ 

FCB5 

REFS 

5 

DEFINED 

2*110 





1 

BTUTYP 

INTFGER 

ARRAY 

Fcnz 

REFS 

3 

20 

33 

DEFINED 

28 



1 

BU3C0V 

REAL 


FCB3 

REFS 

4 

DEFINED 

108 





0 

BUSNH 

INTEGER 

ARRAY 

FCBNMl 

REFS 

15 

16 

DEFINED 

100 




0 

BUSSTS 

INTEGER 

ARRAY 

IFCBl 

REFS 

Z 

20 

DEFINED 

22 




D 

BUSTFL 

REAL 


FCD3 

REFS 

4 

DEFINED 

IDS 





0 

ODUCOV 

REAL 

ARRAY 

FCBIZ 

REFS 

10 

DEFINED 

113 





5 

nOUDV 

INTEGER 

ARRAY 

IFC67 

REFS 

6 

21 

55 

DEFINED 

50 



1 

OQUDVS 

INTEGER 

ARRAY 

IFCB7 

REFS 

6 

21 

DEFINED 

57 




0 

OOUNH 

INTEGER 

ARRAY 

FC0NM 

REFS 

14 

18 

DEFINED 

104 




10 

DDUTFD 

REAL 

ARRAY 

FCBIZ 

REFS 

10 

DEFINED 

114 

115 




4 

DOUTFL 

REAL 

ARRAY 

FCBIZ 

REFS 

to 

DEFINED 

112 





6 

DFACOV 

REAL 

ARRAY 

FCB18 

REFS 

13 

DEFINED 

131 





4 

OFAOV 

INTEGER 

ARRAY 

IFCBIO 

REFS 

9 

21 

96 

DEFINED 

91 



1 

DFAOVS 

INTEGER 

ARRAY 

IFCBIO 

REFS 

9 

21 

DEFINED 

98 , 




16 

BFANM 

INTEGER 

ARRAY 

FCBNH 

REFS 

14 

18 

DEFINED 

107 




0 

DFATFD 

REAL 

ARRAY 

FCBIB 

REFS 

13 

DEFINED 

130 





3 

DFATFL 

REAL 

array 

FCDie 

REFS 

13 

DEFINED 

129 





36 

OFFCOV 

REAL 

ARRAY 

FCB14 

REFS 

11 

DEFINED 

118 





7 

DFFOV 

INTEGER 

ARRAY 

IFCB8 

REFS 

7 

21 

67 

DEFINED 

62 



1 

DFFDVS 

INTEGER 

ARRAY 

IFCB8 

REFS 

7 

21 

DEFINED 

69 




4 

OFFHH 

INTEGER 

array 

FCBNH 

REFS 

14 

18 

DEFINED 

105 




0 

OFFTFD 

REAL 

ARRAY 

FCB14 

REFS 

11 

DEFINED 

121 





30 

OFFTFL 

real 

ARRAY 

FCB14 

REFS 

11 

DEFINED 

116 





10 

FCB 

INTEGER 

ARRAY 

IFCBl 

REFS 

Z 

20 

39 

DEFINED 

26 



572 

1 

INTEGER 



REFS 

Z6 

28 

30 - 

39 

43 

50 

55 






62 

67 

73 

83 

85 

91 

96 

100 






101 

loz 

103 

104 

105 

106 

107 

112 






113 

114 

115 

116 

. 118 

121 

123 

124 






125 

1Z6 

127 

128 

129 

130 

131 







DEFINED 

25 

28 

29 

38 

49 

54 

6r^ 






66 

73 

75 

90 

, 95 

100 

101 

102 






103 

104 

105 

106 

107 

112 

113 

114 






115 

116 

118 

121 

123 

124 

125 

126 






1Z7 

128 

129 

130 

131 




60Z 

ICNT 

INTEGER 

ARRAY 


REFS 

17 

35 

36 

DEFINED 

30 

35 


576 

IPRT 

INTEGER 



REFS 

40 

2*41 

DEFINED 

39 




605 

IREC 

INTEGER 

ARRAY 


REFS 

17 

78 

79 

DEFINED 

73 

79 


575 

ISUM 

INTEGER 



RFFS 

42 

43 

45 

55 

57 

67 

69 






96 

98 

DEFINED 

37 

42 

53 

55 

65 






67 

94 

96 






574 

ITYP 

INTEGER 



REFS 

34 

2*35 

36 

defined 

33 



577 

11 

INTEGER 



REFS 

83 

DEFINED 

76 

60 




600 

I? 

INTEGER 



REFS 

85 

DEFINED 

77 

81 
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INTEGER 



REFS 
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INTEGER 

ARRAY 
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REFS 

15 
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101 
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INTEGER 

ARRAY 
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REFS 
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INTEGER 

ARRAY 
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REFS 
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DEFINED 
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INTEGER 
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INTEGER 
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115 

DEFINED 
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INTEGER 


IFCBIO 
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DEFINED 
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INTEGER 
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REFS 
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DEFINED 
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REAL 

array 
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REFS 
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DEFINED 
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INTEGER 

ARRAY 
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REFS 
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DEFINED 
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INTEGER 

ARRAY 
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DEFINED 
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ARRAY 
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REFS 
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DEFINED 
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REAL 
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REFS 

12 
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DEFINED 
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REAL 
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12 
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DEFINED 
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126 
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lit 
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(41 

4 

OFFNM 
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FCBIMI cog 6600 FTN V3.0-P355 OPT=l 04/00/76 17.50.49. PftGE 1 

SUBROUTINE FCBINI 

COHHON/FCBI/FCBIA t9R)/IFCBl/FCBlB<96» 

GOHMON/FCB7/FC8 7A tin /IFCB7/FrB7B(13) 

C0MM0N/FCB8/FCBBA I37»/IFCn8/FCB8B«31> 

C0MH0N/FCB9/FC09A (37 » /IFCB9/FCB9B « 33 » 

COMHON/FCniO/FCB10AU9)/IFCB10/FCniOBCl6) 

COHMON/FLAG*5/IFLGl»IFLGZ. lFtG3,IFLG4,IFLG5 
COHHON/STATUS/STStZO) 

INTEGER FCBlA«FCBlBiFC07A,FCB70.FCB8AtFCB80 
INTEGER FCfl9A,FCB9Bf FCeiOAiFCniOB 
LOGTCAL IFLGi,IFLGZtlFtG3,IFLG4,IFLG5 
IF«IFLG1» CALL INC0PY(98,FCB1A,FCB10I 
IFdFLGZJ CALL INCOPY ( 13 ,FC07At FCB7B ) 

IFttFLG3l CALL INCOPY( 31 ,FCn8A ,FCB8D J 
IFIIFL64> CALL INCOPY (33 .FCB9A iFC89B J 
IF(IFLGS» CALL INGOPYI 16*FCQlfl AtFCfllOB) 

IFLGl = .FALSE. 

IFLGZ = .FALSE. 

IFLG3 = .FALSE. 

1FLG4 = .FALSE. 

IFLG5 » .FALSE. 

STS(l)=0 

RFTURH 

END 
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0 

FCBIA 

INTEGER 

ARRAY 

FCOl 


REFS 

2 

9 

12 



0 

FC01B 

INTEGER 

ARRAY 

IFCBt 


‘REFS 

2 

9 

12 



0 

FCBIOA 

INTEGER 

ARRAY 

FCBIO 


REFS 

6 

10 

16 



0 

Fcnion 

INTEGER 

ARRAY 

IFCBIO 


REFS 

6 

' 10 

16 



0 

FC07A 

INTEGER 

ARRAY 

FCB7 


RFFS 

3 

9 

13 



0 

FCB7B 

INTEGER 

ARRAY 

IFCB7 


REFS 

3 

9 

13 



0 

FCQ8A 

INTEGER 

ARRAY 

FC08 


REFS 

4 

9 

14 



0 

FC88B 

INTEGER 

ARRAY 

IFCBB 


REFS 

4 

9 

14 



0 

FCB9A 

INTEGER 

ARRAY 

FCB9 


REFS 

5 

10 

15 



0 

FCB9B 

INTEGER 

ARRAY 

IFCB9 


REFS 

5 

10 

16 



G 

IFLGl 

LOGICAL 


FLAGS 


REFS 

7 

11 

12 

DEFINED 

17 

1 

IFLG2 

LOGICAL 

1 

FLAGS 


REFS 

7 

11 

13 

DEFINED 

18 

2 

IFLG3 

LOGICAL 


FLAGS 


REFS 

7 

11 

14 

DEFINED 

19 

3 

IFLG4 

LOGICAL 


FLAGS 


REFS 

7 

11 

15 

DEFINED 

20 

4 

IFLG5 

LOGICAL 


FLAGS 


REFS 

7 

11 

16 

DEFINED 

21 

0 

STS 

REAL 

ARRAY 

STATUS 


REFS 
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DEFINED 
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FCBl 

98 


0 FCBIA 

t98» 








IFCBl 

98 


0 FCniB 

(96) 








FCB7 

17 


0 FCD7A 

U7) 








IFCB7 

13 


0 FCB7B 

(13) 








FCB8 

37 


0 FCDSA 

(37) 








IFCB8 

31 


0 FCB8B 

(31) 








FCB9 

37 


0 FCD9A 

(37) 








IFCB9 

33 


0 FCD9B 

(331 








FCBIO 

19 


0 FCBIOA 

(19) 








IFCBIO 

16 


0 FCBIOB 

(16) 








FLAGS 
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0 IFLGl 
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1 IFLG2 (1) 



2 IFLG3 


3 IFLG4 m 4 IFLG5 (1) 

STATUS 20 0 STS «20> 
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SUBROUTINE FCBPI 

C0HM0N/FCB4/ICHT4 (3J 

CONHON/FCI}6/ICHT6(60I 

C0HH0N/FCB11/ICNT11«18> 

C0M«0N/FCB13/ICNT13tl8) 

C0MH0M/FCB15/'ICNT15<84) 

C0MH0N/FC817/ICNT17t91 

COHHON/FCOCNT/IFCOCN(5U 

COHHON/FLAGS/IFL6t5> 

LOGICAL IFLG 

00 10 I=l»5 

IFLGin =.TRUE. 

10 CONTINUE 
CALL FCOINI 
CALL CLEARI3.ICNT41 
CALL CLEAR(60,ICNT6» 

CALL CLFAR(12,ICNT1U 
CALL CLEARI18,ICNT13» 
CALL CLEAR<84,1CNT15I 
CALL CLEARI9.1PNT17) 

CALL CLEARJ51,IFCBCNI 

RETURN 

END 
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INTEGER 



.REFS 
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DEFINED 
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0 
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INTEGER 

ARRAY 

FCBll 

REFS 

4 

17 


0 

ICNT13 

INTEGER 

ARRAY 

FCB13 

REFS 
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0 

ICNT15 

INTEGER 

ARRAY 

FCB15 

REFS 

6 

19 


0 

ICNT17 

INTEGER 

ARRAY 

FCB17 

REFS 

7 

20 


0, 

ICNT4 

INTEGER 

ARRAY 

FCB4 

REFS 

2 

15 


0 

ICNT6 

INTFGER 

ARRAY 

FC06 

REFS 

3 

16 


0 

IFCBCN 

INTEGER 

ARRAY 

FCBCNT 

REFS 
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21 
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FLAGS 
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(3> 





FCB6 

60 


0 ICNT6 

(60) 





FCBll 

12 


0 ICNTll 

112) 





FCB13 

18 


0 ICNT13 

(18) 





FCB15 

24 


0 ICNT15 

(24) 





FCB17 
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0 ICNT17 

(9) 





FCBCNT 

51 


0 IFCBCN 

(51) 





FLAGS 
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FC8PH1 COC 6600 FTN V3«0-P3S5 OPTs^l 04/08/76 17«50»49. 

SUBROUTINE FCBPHl 

COMHON/FC87/NOOUQV,DDUOWS<4> ,n0U0Vt2«4) ♦ODUDVN«4J 
COMHON/FCn8/NnFrOV,OFFOVS<6) ,DFFOV(4t6I t0FF0VN(6) 

C0MM0N/FC09/NHFF0V,HFFDVS<2«4) ,NFFDV MtZ»4» *NFFQVNt4l 
COHHON/FCB10/NDFftOV,DFftDVS(3t ,0FA0V(4,3J tOFAOVN(3) 

C0HH0N/FCnUC/FCBUCF«6) 

C0HN0N/C036/RMI STM 

COHHON/FLTHIS/HFCV«10>,NSYSFI10> .PFRIO.TFRIO 
DIMENSION NAHEF(2> 

DIMENSION IPLACECS1 
DATA TlHE/10000.0/ 

DATA RMISTH/100000.0/ 

DATA OFADVN/21, 22.23/ 

DATA NFFOVN/17. 18, 19,20/ 

DATA OFFOVN/11, 12,13,14,15,16/ 

DATA DOUDVN/7,8,9,10/ 

DATA NAMEF/IOHTRANSIFNT , 1 DHPERHANENT / 

DATA FCDUCF/1,2,3,4»5,6/ 

CALL FCBIN 

CALL R010FR(PFRIO,TFRIO> 

CALL PFCBCF 
5 CONTINUE 

READ 30D1,MOHIS,NOFLT,1DE6UG 
IF«NOHlS.LE.0> RETURN 
CALL FCBPI 
DO 10 1=1,10 
NFCV<1)=0 
NSYSFtIJ=0 
10 CONTINUE 

DO 100 K=l,MOHlS 
NEXT=0 
OUR=RHISTM 
CALL FCBINI 
DO SO J=l,NOFLT 
CALL PFISOdP, 2) 

CALL UNPACKdP, tPLACEl 

CALL FCBFLT<TIME,IPLACE,DUR,NEXn 
NFCVtJ>=NFCtf JJin 

IF<NEXT.EQ.5> GOTO 60 
50 CONTINUE 

GO TO 100 
60 CONTINUE 

MSYSF( J> = NSYSF«JJ *1 
100 CONTINUE 

CALL PIOSTS 
GOTO 5 

2000 FORMAT (1H1,10X,10HHISS10N - ,I3/11X,12H /< 

2001 FORMATaX,F10.2,3H...,A10,4X,4I3/l 

2002 FORMAT J/16H SYSTEM FAILURE/) 

3000 FORMAT(I1,I9,F10.0) 

3001 FORMAT (3110) 

END 
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1 FCBPHl 1 


REFERENCES 

24 


VARIRBLES 

SN 

TYPE 

RELOCATION 

5 

DDUOV 


REAL 

ARRAY 

FCD7 

15 

OnUDVN 


REAL 

ARRAY 

FCB7 

1 

OOUDVS 


REAL 

ARRAY 

FC87 

4 

OFAnV 


REAL 

ARRAY 

FCBIO 

20 

OFADVN 


REAL 

ARRAY 

FCDIO 

1 

OFAOVS 


REAL 

ARRAY 

FCBIO 

7 

OFFDV 


REAL 

ARRAY 

FCB8 

37 

DFFOVN 


REAL 

ARRAY 

FC08 

1 

OFFDVS 


REAL 

ARRAY 

FCB8 

137 

OUR 


REAL 



0 

FCBUCF 


RFAL 

ARRAY 

FC8UC 

134 

I 


INTEGER 



133 

lOEBUG 

V 

INTEGER 



141 

IP 


INTEGER 



144 

IPLACE 


INTEGER 

ARRAY 


140 

J 


INTEGER 



135 

K 


INTEGER 



142 

NAMEF 


INTEGER 

ARRAY 


0 

NDOUnV 


INTEGER 


FCB7 

0 

NDFADV 


INTEGER 


FCBIO 

0 

NDFFDV 


INTEGER 


FCB8 

136 

NEXT 


INTEGER 



0 

NFCV 


INTEGER 

ARRAY 

FLTMIS 

11 

NFFCV 


INTEGER 

ARRAY 

FCB9 

41 

NFFOVN 


INTEGER 

ARRAY 

FCB9 

1 

NFFOVS 


INTEGER 

ARRAY 

FCB9 

0 

NNFFDV 


INTEGFR 


FCB9 

132 

NOFLT 


INTEGER 



131 

NOHIS 


INTEGER 



12 

NSYSF 


INTEGER 

Array 

FLTMIS 

24 

PFRIO 


REAL 


FLTMIS 
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RHISTH 
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C036 

25 
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REAL 


FLTMIS 
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TIKE 


REAL 
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21 
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2 

20 


UNPACK 
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REFS 
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DEFINED 
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REFS 
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REFS 
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DEFINED 
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REFS 
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AO 

56 

60 




A2 

60 

100 




AA 
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2000 

FMT 

NO 

REFS 

A7 

112 

2001 

FHT 

NO 

REFS 

48 
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2002 

FMT 

NO 
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122 

3000 

FHT 

NO 
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FHT 
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FROM-TO 

30 

10 

I 



26 29 

33 

100 

* K 
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50 

* J 
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0 NO DUO V 

<11 

1 

OOUOVS 

<A1 
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181 



13 DDUDVN 

(A) 







FCB8 

37 

0 NDFFOV 

ID 

1 

OFFDVS 

16) 

7 

DFFOtf 

I2A) 



31 DFFDVN 

(6) 







Fcng 

37 

0 HNFFDV 

ID 

1 

NFFDVS 

<8l 

9 

NFFOV 

(ZA) 



33 NFFOVM 

lAI 







Fcaio 

19 

0 NDFAOV 

ID 

1 

DFADVS 

<31 

A 

DFAOV 

IIZ) 



16 OFADVN 

131 







FC8UC 

6 

0 FCBUCF 

<61 







C036 

1 

0 RMISTM 
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22 
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10 
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<to> 

20 

PFRIO 
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«■# 
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10 


15 


20 


25 


30 


35 


(•0 


*|5 


50 


SOBROUrrME FIFAUfrM.NfXT.rsyMCt 
c THIS VERSTONI MARCH 1976 

C THIS SUBROUTINE LOOKS IE A FAULT IS IN THE ON-UNITS 
C IN Ot THE FAULT IS TAKEN CARE OF BY FIFAU.IUNIT NOT ON OR BUSI 

C II THE FAULT IS IN A COMPUTER OR EEM 

c 

COHMOH/COMl/lDlHtTAnLE (3 00 »Aj' tPTRtEXTEN,IDETEC»RECOV»OELAY»TIHE 

COMMON/CD 1 Z/NTR,IFAU 

COHMON/C 015 /NOOHt 5 J , NHORK 

C0HM0N/C038/I0CU<5) tNONDFD ,NMOIO 

C0MM0N/C0i*3/T01 

COHrtON/COA6/PCOHf PBU.PBUCO 

C 0 MH 0 M/C 0 H 3 / ACF AUTIO , 6 » , ENDMIS ,HEHS 2 »TC 

COMHON/FLTHS/TFLTCT 

INTEGER DUNOND 

INTEGER EXTEN.PTR 

COMHON/COMT/REA SON 

INTEGER REASON 

CONHON/FCOUNT/NFT F» . NTRF(5> 

DIMENSION IPLACEtFI 

C «**»«»««»**«» v»****»*«*v»« 

G 

TrHE=TA 0 LEIPrR,l» 

OUR=TABLE(PTR, 2 ) 

XHOD=TAOLEIPTR. 3 I 

NUNIT=TABLE(PTR»M 

MOO=XNOO 

GOTO 1 1 00 0 , 2000 1 1000 . 30 00,10001 ,HOD 
1000 CONTINUE 

IFIHOONtMUNITI.EQ.il GOTO 1500 
IN =0 

PTR=PTRtl 

RETURN 

1500 CONTINUE 

CALL EXTENT tEXTEN*DUR,XH 00 ) 

CALL OETTlHtOETED*TIHE,XHODl 
CALL COPT (TIME, OETEC, REASON, NEXT! 

HF f NHORK) =HF TNHORK) 4^1 

IF I OUR .LT .ENOHIS) NTRF t NHORK) =NTRF<NHORK) +1 
TFIISVNC.EQ. 0) CALL ASYNC tT IHE, DETEC, NEXT I 
PTR=PTR41 
IM =1 

RETURN 

2000 CONTTNUF 

IFINONOED.EQ.2) goto 2500 

IFINOONIMUMIri .EO.ll GOTO 2100 
2050 CONTINUE 
IN =0 

PTR=PTPH 

RETURN 

2100 CONTINUE 

U=RANF(0.0) 

IF(U.LT.PCOH) GOTO 2110 

IF(OOR.LT.TC) GOTO 2200 


17 . 50 . '( 9 . 


PAGF 1 


55 
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CALL OUSCHK(NEXT,NUNin 
IF«NEXT.EQ.5> GOTO 2050 
2110 CONTINUE 

IMU.LT.PnUJ GOTO 2050 
60 2200 CONTINUE 

TflnLElPTR,3)=l 
GOTO 1500 
2500 CONTINUE 

CALL lOTMEXT) 

65 IN=0 

RETURN 

3000 CONTINUE 

IFLTCT=TFLTCTtl 

CALL UNPACKtNUNIT.lPLACEl 

70 CALL FCOFLTmHE,lPLACE»OUR,NEXTI 

IN=0 

PTR=PTRH 

RETURN 

ENO 
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NUNIT 

INTEGER 
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69 
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INTEGER 


C03S 
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11 
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10 
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C046 

REFS 

13 
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2 

PBUCO 

REAL 
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13 
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13 
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TIME 
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2110 
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COM3 

63 
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TC (11 
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TABLE 
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PTR 

<11 

1203 

IDETEC 

(1) 
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RECOV 
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TIME 

(1) 
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IFAU 
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5 

NHORK 
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PBU 
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PBUCO 
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ENDMIS 
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10 


IS 


20 


25 


30 


35 


SUBROUTINE GATHER 

C THIS VERSIONi 10 APRIL 1974 

C THIS SUBROUTINE GATHERS ALL FAULTS ON TOP OF ACFAU 
C HE KEEP ALL FAULTS ON TOP OF ACFAU 

C REALLY A DELETE AND SQUEEZE THE LIVE/ACTIVE FAULT RECORDS TO THE TOP 
C OF THE ACFAU TABLE. 

C IDIH IS THE MAXIHUH NUMBER OF LURKING FAULTS 
C 

(;•««««**««« ««»«««««* »*»****»♦• *«***««*« »*****♦♦ 

COMMON /COHl/lOIHtTABLF (3 00 1<« J »PTR,EXTEN,IDETECtRECOV, DELAY, TIME 
C0HH0N/C0M3/ ACF AU 110 , 6 » , ENOMTS ,HEHSI Z, TC 

C 

81 CONTINUE 

DO 110 J31,IDIH 

C FIND ONE THATS NOT ZERO 

IF <ACFAU(J|3I.NE.O. I GO TO 110 

C IF ITS AT THE FNB OF THE TABLE YOU VE DONE YOUR BEST ANYHAY 

IF (J.EQ. IDIH) RETURN 
K=J»1 
C 

DO 120 L=X,IOIH 

IF (ACFAU(L,3) .EQ.O.t GO TO 120 

C SO YOU VE GOT A LIVE ONE 

DO 130 1=1,6 

C TRANSFER IT UP TO THE BLANK RECORD 

ACFAU (J,H=ACFAUIL,U 
130 CONTINUE 
C 

C BLANK OUT THE ONE YOU TRANSFEREO UP 

ACFAU(L,3I=0. 

GO TO 01 
120 CONTINUE 
RETURN 

110 CONTINUE 
' END 


SP08APR4 
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SP08APR4 
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SP08APR4 
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ARRAY 

C0H3 
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2265 

DELAY 

REAL 


COHl 
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74 

ENOMIS 

REAL 


COM3 


REFS 

2262 

EXTEN 

REAL 


COM! 


REFS 

40 

I 

INTEGER 




REFS 

2263 

lOETEC 

INTEGER 


COHl 


REFS 

0 

iniH 

INTEGER 


COHl 


REFS 

35 

j 

INTEGER 




REFS 

36 

K 

INTEGER 




REFS 

37 

L 

INTEGER 




PEFS 

75 

HEHSIZ 

INTEGER 


COM3 


REFS 

2261 

PTR 

REAL 


COMl 


REFS 

2264 

RECOV 

REAL 


COHl 


REFS 

1 

TABLE 

REAL 

ARRAY 
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REFS 
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TO 
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TIME 
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1 TABLE U200) 1201 PTR IIJ 
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GIOOFI COC 6600 FTN V3.0-P355 OPT=l O‘l/OB/76 17. 50.49. PRGE 1 

SUBROUTINE GIORFllTOTAL»VECf BUS) 

OIHENSION BUS(B) 

OlHENSIOM VEC<8) 

READ 1000. DUS 
VECI1)=0USI1I 
DO 10 1=2.8 

vec«n=Dus«i)tVEc u-1) 

10 CONTINUE 

TOTAL=VEC«8l 
TFtTOTAt.EQ.O) RETURN 
DO 20 1=1.8 

VECII)=VECII) /TOTAL 
20 CONTINUE 
RETURN 

1000 FORMAT (8F10. 5) 

END 
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REFS 
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0 VEC 
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SUOROUTINE 6IORF2(TOTAL,VEC.XM,ISTS,BTUFRJ 
OIHENSION VEC(IO) .ISTS(10l,XH<10»4t ,DTU( 10) • BTUUIO) 
OIHENSTOM BTUFR<10t2l 
READ lOOO.fOTUd) ,Irl,2) 

RFAD 1000,{QTOL«I)fI=l»2) 

READ 1000 .(BTUtI) ,1=3,6) 

READ 1000,(BrUL(n,r = 3,6) 

READ 1000 ,»OTUII) ,1=7,10) 

READ 1000,IBTUL(I),Z=7,10) 

00 50 1=1,10 

8TUFRa,l)=0Tml) 

0TUFR(I,2)=BTUL<1) 

M0=1STS)I)+1 

XH<I,1)=BTU(I) 

00 30 J=2,H0 

XHJI, J)=XHII, J-1)*BTUL(I) 

30 CONTINUE 

VECd) = XMII,NO) 

IFtOECai .EQ.OIGOTO 50 
DO 40 J=l,NO 

XMtl, J)=XHtl,J)/VECfI) 

40 CONTINUE 
50 CONTINUE 

00 60 1=2,10 

VEC(1)=VECII) tVECfI-1) 

60 CONTINUE 

TOTAL=VEC)10) 

IFtTOTAL.EO.O) RETURN 
00 70 1=1,10 

V£C«n = VECUI /TOTAL 
70 CONTINUE 
RETURN 

1000 FORMAT tOF 10. 5) 

END 
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subroutine G10RF3(TOTi\L,VEG,XH,IOEV,iniH,JOIH,OEVJ 
OIHENSIOM tfEOaoiHI ,XH<IOIH,JnlH> ,10EVCIOIMt J01H> .DEVtJDIH) 

read iooo«oev 
no 30 I=1,10IH 
XP=0 
00 10 
XM=XP 

IF(IOEVfI,JI.ME.D» XN=XN»0EVCJJ 
XP=XM 

XM(I,J)=XH 
10 CONTINUE 

VECm=XM 
IFtXN.EQ.OlGOTO 30 
00 20 j3l,J0IH 

XMCI,J)=XKII,JJ/XN 
ZO CONTINUE 

30 CONTINUE 

no <»D I=2,IDIM 

VEC a I =VEC< I J tVEC (I-l > 

40 CONTINUE 

TOTAUVFCflOlMI 
IFITOTAL.EQ.OIRETURM 
DO 50 T=1,I01H 

VECm=VECm/TOTAL 
50 CONTINUE 
RETURN 

1000 FORHATIOFlO.St 
END 
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4 

18 
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1 

2*8 

10 

2*15 

DEFINED 

6 

14 

3*2 

6 

14 

DEFINED 

1 


22 

24 

DEFINED 

1 

21 


2 

2*19 

21 

24 

DEFINED 

1 
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2 

15 

DEFINED 

1 

18 

IS 

8 

9 

10 
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DEFINED 
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20 


16 

14 


56 

30 


17 

4 

13 

0 

40 


?0 

18 


0 

50 


25 

23 
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lOOO 

FMT 

27 
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LOOPS 

label 

INDFX 

FROM-TO 

LENGTH 

PROPERTIES 

25 

30 
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NOT INNER 

33 

10 

J 
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IHSTACK 

54 
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2B 

INSTACK 

63 

40 
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16 20 
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TNSTACK 

77 

50 
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23 25 
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GIORF«i cue BfiOO FTN V3.0-P355 0PT=1 0«i/Qn/76 17.5Q.«i5. PAGE 1 

SUBROUTINE GIORF4 (TOTAL, VEC,XH1,XM2, ISTS.DEVSI 
niMENSION DEVS (4, 2) 

DIMENSION VEC(4),XH1(4,4I •XM2(4,2) , ISTS< 2, 4) «OEV (4> , OEVL (4) 

READ lODOtDEV 
READ 1000, OEVL 
DO 20 1=1,4 

DEVS(I,l)=OEVII) 

OEVS(I,2)=OEVL(I) 

XHl (I,1)=DEV(II 
DO 10 Js2,4 

xHin, j)=xHHi,j-ii+DEVL(n 

10 CONTINUE 

IF(ISTS(l,II .EQ.OI XM2(I,1)=0 
IF(ISTStl,I» .NE.OJ XH2(I,tJ=XHUI,4j 
IF(ISTS(2,Tt .EO.OI XH2< I, 2i =XH2 (I , 1 > 

IF(ISTS«2,n .NE*0I XH?(I,2»=XM1(1,4»+XHZ(I,U 
VEC(H=XHZ«,2I 
IF(XM1(T,4». EQ.OI GOTO 15 
DO 11 J=i,4 

XMKl, J) = XHia, J)/XH1(I,4) 

11 CONTINUF 
15 CONTINUE 

lF(XHZa,Z).EO.O|GOTO ZO 
XHZ(I,1)=XHZ fT,l)/XHZ(I,2> 

XHZ(I,ZI=1.0 
ZO CONTINUE 
DO 30 I=Z,4 

VEC ill =VECI1 > ♦ VEC 1 1-1 1 
30 CONTINUF 

TOTAL=VEC(4> 

IF ( TOT AL. EQ. 0) RETURN 
DO 40 1=1,4 

tf£C(I)=VECm/TOTAL 
40 CONTINUE 
RETURN 

1000 FORMAT (8F10. 51 
END 
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REFERENCES 
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GI0RF4 

1 
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VARIABLES 

SN TYPE 

RELOCATION 


140 

DEV 

REAL 

ARRAY 


REFS 

144 

DEVL 

REAL 

ARRAY 


REFS 

0 

DEVS 

REAL 

ARRAY 

F.P. 

REFS 

136 

I 

INTEGER 



REFS 






4*16 






2*33 

0 

ISTS 

INTEGER 

ARRAY 

F.P. 

REFS 






defined 

137 

J 

INTEGER 



REFS 

Q 

TOTAL 

REAL 


F.P. 

REFS 

D 

VEC 

RFAL 

ARRAY 

F.P. 

REFS 






2B 

0 

XHl 

REAL 

ARRAY 

F.P. 

REFS 
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XM2 

REAL 
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F.P. 
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MODE 





INPUT 
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REFERENCES 

0 

ID 


12 

in 


0 

11 


21 

19 


77 

IS 


32 

la 


106 

20 


26 

6 

23 

0 

30 


29 

27 


0 

40 


34 

32 


132 

IQOO 

FMT 

36 

4 

5 

LOOPS 

LABEL 

INDEX 

FROM-ro 

LENGTH 

PROPERTIES 

27 

20 

» I 

6 26 

628 


35 

10 

J 

10 12 

28 

INSTACK 

75 

11 

J 

19 21 

20 

IMSTACK 

112 

30 

I 

27 29 

28 

INSTACK 

124 

40 

I 

32 34 

28 

INSTACK 

STATISTICS 
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3 

T 

9 

DEFINED 

4 


3 

8 

11 

DEFINED 

5 


2 

DEFINED 

1 

7 

8 


2*7 

2*8 

2*9 

3*11 

2*13 

3*14 

2*17 

18 

3*20 

23 

3*24 

25 

DEFINED 

6 

27 

32 



3 

13 

14 

15 

16 


2*11 

2*20 

DEFINED 

10 

19 


31 

33 

DEFINED 

1 

30 


3 

2*28 

30 

33 

DEFINED 

1 

33 






3 

11 

14 

16 

18 

2*20 

1 

9 

11 

20 



3 

15 

16 

ir 

23 

2*24 

1 

13 

14 

15 

16 

24 


5 
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3*15 

3*2fl 


17 
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pftGE 


LOGICAt FUNCTION GREATRIVALJ 
GREATR=RANF«0.1 .5T.VAL 
RETURN 
END 



FUNCTION 


GRFATR 


SYMBOLIC 

REFERENCE 

MAP 



ENTRY POINTS 
2 GREATR 

OEF LINE 
i 

REFERENCES 

3 


VARIABLES SN 

U GPEATR 
0 VAL 

TYPE 

LOGICAL 

REAL 


RELOCATION 

F.P. 

DEFINED 

PEFS 

EXTERNALS 

RANF 

TYPE 

RFAL 

ARCS 

1 

references 

2 


STATISTICS 

PROGRAM length 
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SUBROUTINE INCOPY COC 660D FTN V3.0-P355 OPT=l 04^00/76 17.50.49. PAGE 

SUBROUTINE INCOPV <NC .FIELDA.FIELDB) 

INTEGER FIELOA.FIELOB 
OINENSION FIELOAtNC) ,FIELDB(NCt 
no 10 1=1, NC 

FTELDAa»=FIELDBtn 
10 CONTINUE 
RETURN 
END 
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PAGE 


2 


SYMBOLIC REFERENCE HAP 

ENTRY POINTS OEF LINE RCFFRENCES 
2 INCOPY 1 7 


2 3 DEFINED 1 5 

235 DEFINED 1 

2*5 DEFINED 

2*3 4 DEFINED 1 

STATEMENT LABELS OEF LINE REFERENCES 

0 10 6 ‘ 

LOOPS LADFL INDEX FROH-TO LENGTH PROPERTIFS 
17 10 I 46 2B INSTACK 

STATISTICS 

PROGRAM LENGTH 340 26 


WARIABLFS SN TYPE 
0 FIELOA INTEGER 

0 fielob integer 

2A I INTEGER 

0 NC INTEGER 


RELOCATION 


ARRAY 

F.P. 

REFS 

array 

F.P. 

REFS 

REFS 


F.P. 

REFS 
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9 

SUBROUTINE INFLTB 
COHKON/TAB/TA0LE<100) 

OIMENSION IPLaCE(5) 

INTEGER TRANS. PERH.TAOiE 
5 data TRAMS/1HT/,PFRM/1HP/ 

DATA NH/IHN/ 

J=1 

20 CONTINUE 
KJ=0 

10 READ 2000.ITYP, nPLACETMl,M=2,5» 

IFtlTYP.EQ.TRANSl KJ=1 
IFUTYP.EQ.PERMJ KJ=? 

IPLACEJIJ =KJ 
PRINT 2001.IPLACE 

15 CAUL PACKdPLACE.tOCJ 

TABLET JJ=LOC 
J=J»t 

IFCtlTYP.EQ.NHJ .OR.TKJ.NE.on GOTO 20 
TABIE(J»=-1 

20 2000 FOR«ATtAl,4X,4I5) 

2001 F0RHATT1X,5I5I 
RETURN 
END 



PRODUCIBILITY OF THE 
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HAP 



ENTRY 
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OEF LIME 

REFERENCES 


1 

INFLTB 

1 

22 



VARIABLES 

SN TYPE 

RELOCATION 


64 

TPLACE 

INTEGER 

ARRAY 


REFS 

61 

ITYP 

INTEGER 



REFS 

57 

J 

INTEGER 



REFS 

60 

KJ 

INTEGER 



REFS 

63 

LOG 

INTEGFR 



REFS 

62 

H 

INTEGER 



REFS 

52 

NH 

INTEGER 



REFS 

51 

PERM 

INTEGER 



REFS 

0 

TABLE 

INTEGER 

ARRAY 

TAB 

REFS 

50 

TRANS 

INTEGER 



REFS 

FILE NAMES 

MODE 





INPUT 

FMT 


READS 

10 


OUTPUT 

FHT 


HRITES 

14 

EXTERNALS 

TYPE 

ARGS 

REFERENCES 



PACK 


2 

15 


STATEMENT LABELS 

DEF LINE REFERENCES 

3 

20 


8 

18 


53 

2000 

FHT 

20 

10 


55 

2001 

FMT 

2l 

14 


COMMON CLOCKS 

LENGTH 

MEMBERS 

- BIAS MAHEaENGTHI 


tab 

100 


0 TABLE UOOI 
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7 
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DEFINED 
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15 
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10 

DEFINED 

10 



16 

DEFINED 

6 



4 

12 

DEFINED 

5 


2 

4 

DEFINED 

16 

19 

4 

11 

DEFINED 

5 



13 

17 

12 


STATISTICS 

PROGRAH LENGTH 718 57 

COMHOM LENGTH 1448 100 
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10 


15 


20 


25 


30 


SUaROOTIME IO(MEKT» 

C This VERSIONl 12 JULY 1974 

C THIS SUBROUTINE RETURNS NEXT=5 IF ALL EEHS ARE LOST. 

C 

C ««*«*« «*««**»* »»«*««**«»»*«»** **«**««;**«««*«»«««***««««««««« 

COMHON/COMl/IOlH»TAaLE(300,4l ,PTR,EXTEN,IDETEC»RECOVtOELAY,TIME 

COHHON/COH3/AtlO,6>,ENnHISfi,TO 

COMHON/COM7/RE4 SON 

G0HH0N/C012/NTR,IFAU 

COHH0M/OO16/NOI AG *NUNDI 

C0HM0N/C036/RMISTH 

C0HH0N7C03B/I0CU(S» ,NOMQEO,MHOIO 

C0MH0N/C039/PDETI0 ' 

COHMON/CO407ISHI,FSIIItNSMIOM,NIO 
INTEGER PTR.EXTEN, REASON 

C ••♦•♦**♦*»•**••***•*»**»***•*****•*»*»**•**•*»****#****•*♦****»♦****»* 

C 

I=TABLEtPTR,4) 

PTR=PTR*1 
C COUNTING 

IFAU=IFAU4l 

GO TO I4i2«3t3i 3t ,NROIO 
4 continue 
REASON =2 
NEXT=5 
RETURN 

C LOOK IF HE CAN ISOLATE FAULT. 

2 CONTINUE 

IF IRANF(fl.»,GT,PDETIO» GO TO 4 

3 CONTINUE LlSaOIO 

IF (TABLE(PTR-l,2».iT.TC» GO TO 1 

NKOIO=NMOIO-l 

iocum=o 

1 CONTINUE 
ENO 


35 
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ENTRY 

POINTS 
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10 

1 
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A 

REAL 

ARRAY 

DOH3 


REES 

2265 

RELAY 

REAL 


COHl 


REFS 

74 

ENDHIS 

REAL 


COM3 


REFS 

2262 

EXTEN 

INTEGER 


COHl 


REFS 

1 

FSHI 

REAL 


CD4 0 


REFS 

43 

I 

INTEGER 




REFS 

2263 

lOETEC , 

INTEGER 


com 


REFS 
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TDIH ' 

INTEGER 


COHl 


REFS 
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INTEGER 
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REFS 
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INTEGER 

ARRAY 
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REFS 
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ISHI 

INTEGER 


CO40 


REFS 

75 

H 

INTEGER 


COM3 


REFS 

0 

NDIAG 

INTEGER 


C016 


REFS 

0 

NEXT 

INTEGER 


F.P, 


DEFINED 

3 

NIO 

INTEGER 


CO40 


REFS 
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NONOEO 

INTEGER 


C030 


REFS 

2 

NSWION 

INTEGER 


CO4 0 


REFS 

0 

HTR 

INTEGER 


C012 


REFS 

1 

NUNDI 

INTEGER 


C016 


REFS 

6 

NHOIO 

INTEGER 


C038 


REFS 

0 

POETIO 

REAL 


C039 


REFS 

2261 

PTR 

INTEGER 


COHl 


REFS 
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1 

TABLE 

REAL 

array 

COHl 


REFS 
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TIME 
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DEFINED 33 
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DEFINED 
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6 

11 

6 IS 31 
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1 TABtE tl20fl) 1201 PTR (1» 
1203 IDETEC ID 1204 RECOO «1» 
1206 TINE m 

60 ENDHIS 111 61 H <11 


1 IFAU 111 
1 NUNOI (II 



'iUnPOUTINE 10 


COMMON BtOCKS LENGTH 


C036 1 

C038 7 

C039 1 

CO40 4 

STATISTICS 

PROGRAM LENGTH 440 


COMMON LENGTH ?410B 


MEMBERS - BIAS NAME (LENGTH) 
0 RHISTM (1) 

0 lOCU (5) 

0 PDETIO (1) 

0 ISHI (1) 

3 NIO (1) 


36 

1288 
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FUNCTION IRANtMIM.HAX) 

THIS VERSIONI 25 FEBRUARY 1974 
IT RETURNS A RANDOM INTEGER 8FTHEFN MIN AND MAX (INCLUDEOl 

«»*«*****« V**«««V* 


IRAN=INTUHAX-MINT1) *RANF ( 0 . H THIN 
END 



FUNCTION IRAN COC 6F00 FTN V3.0-P355 OPT=l 0«*/06/76 17.50.«i9. 

SYMBOLIC REFEPENCe MAP 

ENTRY POINTS . DEF LINE REFERENCES 
2 IRAN 1 7 


VARIABLES 

SN 

TYPE 


RELOCATION 





17 IRAN 


INTEGER 



DEFINED 

6 



0 MAX 


INTEGER 


F.P. 

Aefs 

6 

DEFINED 

1 

0 MIN 


INTEGER 


F.P, 

REFS 

2*6 

DEFINED 

1 

EXTERNALS 


TYPE 

ARCS 

REFERENCES 





PANF 


REAL 

1 

6 





INLINE FUNCTIONS 

TYPE 

ARGS 

DEF LINE 

REFERENCES 




INT 


INTEGER 

1 

INTRIN 

6 
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PAGE 1 


5 


10 


FUNCTION ISTEPBIM.tfECI 
niMENSION VEC<N) 
U=RANFJ0.0l 

no 10 J= 1 .M 

IF(0.tE.VEC(jn GOTO 20 
10 CONTINUE 
STOP 4005 
20 CONTINUE 
ISTEPO=J 
RETURN 
ENO 



FUNCTION TSTEPO COC 6600 FTN V3,0>P355 0PT=1 04/08/76 17.50.49. PAGE Z 

SYMOOLIC REFERENCE HAP 

ENTRY POINTS OEF LINE REFERENCES 
Z ISTEPO 1 10 

UARIAOLES SN TYPE . RELOCATION 

40 ISTEPO INTEGER 

4Z J INTEGER 

0 N INTEGER F.P. 

41 U REAL 

0 VEC REAL ARRAY F.P. 

EXTERNALS TYPE ARCS REFERENCES 

RANF REAL 1 3 

STATEMENT LABELS OEF LINE REFERENCFS 

0 10 6 4 

31 20 85 

LOOPS LABEL INDEX FROH-TO LENGTH PROPERTIES 

23 10 • J 46 4D INSTACK EXITS 

STATISTICS 

PROGRAM LENGTH 528 42 


DEFINED g 

REFS 5 9 DEFINED 4 

REFS 2 4 DEFINED 1 

REFS 5 DEFINED 3 

REFS 2 5 DEFINED 1 


REPEODUCIBILnY OF THE 
ORIGINAL PAGE IS POOR 
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LOGICAL FUNCTION LESS(VALJ 

THIS program generates A UNIFORM PANOOM NUM3ER BETHEEH ZERO AND ONEt 
AND THEM DETERMINES IF IT IS LESS THAN A GIVEN VALUE, IF IT IS, 
.TRUE, IS RETURNED! ELSE .FALSE. IS RETURNED. THIS FUNCTION IS USED 
TO determine the success of FAULT RECOVERT 

VAL THE GIVEN VALUE. SUCH AS A TRANSIENTE LEAKAGE 

****»***-»»*******♦***•***»»♦■»**♦»»•**•*****•<♦»•*♦♦♦***• 


U=RANF (0. 1 
LESS = U.LE.VAL 

return 

END 



FUNCTION 


LESS 


SVHDOLIC REFERENCE HftP 


ENTRY POINTS 
2 LESS 

OEF LINE 
1 

REFERENCES 

16 


VARIABLES SN 

15 LESS 

16 U 

a VAL 

TYPE 

LOGICAL 

REAL 

REAL 

RELOCATION 

F.P. 

DEFINED 

REFS 

REFS 

EXTERNALS 

RANF 

TYPE 

REAL 

ARCS 

1 

REFERENCES 

12 


STATISTICS 

PROGRAM LENGTH 

17B 

15 
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10 


15 


20 


25 


30 


35 


40 


45 


50 


SU8ROUTINF HOt1FLT(HOH,PRT > 

C 

C THIS ROUTINE IS INVOKED WHEN A FAULT OCCURS IN A BUS TERMINAL UNIT 
C IAN HDM OR ODUl . IT OETERHINFS THE EFFECT OF THIS FAULT ON THE 
C FLIGHT CRITICAL BUS EQUIPMENT GROUP, 

0 

C HOM IDENTIFIES THE FAULTY MOli 

C PRT IF NONZERO. IHDICATESI ONLY A PORT FAILED AND IDENTIFIES IT 
C 

*»*«»*«*«* **»*•***■**»*♦**♦*»♦*♦*♦*»*♦•*■#**»*•**»*♦• 

COHHON/FCDl/DUSSTSt8) ,FCai8,10) ,OTUSTS(10I 

COMHON/FC82/N8TU, BTUTYPtlDl ,BTUCONUO*4> .BTUNOCIOJ 

COMMON/FRn5/nrUCOVIlg.2» ,BTUTFLU0,2I 

COHMON/FCe6/NOTUTF(10.2» .NBTUPFIIO , 21 ,NBTUTRU0.2l 

C0HMON/CO12/NTR,IFAU 

COMMON /ST ATUS/STS <201 

COHHON/FAULT/FLTTYP 

C0MM0N/FCBUC/FC0UCF(6) 

INTEGER BTYP,BUS»OUSSTSiFCB,BTUSTS 
COMMON/FLAGS /FLGT5) 

LOGICAL FLG 
INTEGER FCnUCF 
LOGICAL GPEATR 

INTEGER BTUTYP.DTUCON.BTUNO.STS.FLTTYP 
INTEGER PRT 
C 

IFIBTUSTSIMOHI «EQ.0) RETURN 
FLGm=.TRUE. 

BTYP = BTUTYPIHOH) 

IFIPRT.EQ.Ot GOTO 5D0 
C 

D ...THE FAULT OCCUREO IN ONE OF THE BTU PORTS 

BUS=BTUCON(HON,PRT> 

IFtQUS.EQ.OISrOP 1002 
ITYP=FCO(BUS,«OHl 
IFtlTYP.EQ.Ol RETURN 

C ...INCREMENT FAULT COUNTER AND JUMP ON FAULT TYPE 

IFAU = IFAU+1 
GOTOdOO, 200),FLTTYP 
C 

C ...ITS A TRANSIENT 

100 CONTINUE 

HTR = NTR+i 

MBTUTF lBTYPji>=NBTUTF<BTYP,ll + l 

0 ...IF TRANSIENT RECOVERY FAILS# GOTO PERMANENT RECOV 

IF11TYP.EQ.21RETURH 
IF(GREATR<QTUTFLlHOM, nil RETURN 
• NnTUTR(OTYP.ll=HDTUTR<BTYP,im 
GOTO 205 
C 

C ...ITS A PERMANENT 

200 CONTINUE 

NBTUPFeOTYP.ll - NBTUPF ( BT YP , 1 1 ♦ 1 
C ...ENTER-— LEAKY TRANSIENT 




55 


205 CONTINUE 
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60 


65 


70 


75 


60 


as 


90 


95 


IDO 


105 


GOTO l300i400)tITYP 
G 

C ...AN ACTIVE PORT HAS FAILED 

300 CONTIHUF 

FCBfQUS.HOH) =0 
NL=aTUSTS<HDH»-l 
BTUSTS tHDHI=ML 
IF(NL.EQ.O) GOTO 350 
IFCQTUTYP«HDH> .EQ.l) RETURN 

C ...IF FAULT COVERED, FIND BACKUP PORT 

IF(GREATR<BTUCOV(KDH, IM ) GOTO 900 
00 330 1=1,2 

I8US=BTUC0N(HDH,I) 

IFIFCBCIRUS,HDM».EQ.2J GOTO 335 
330 CONTINUE 

C ...SOMETHINGS WRONG WITH FCB. 

PRINT 1000,BTUCON 

1000 F0RMATI/12H ***ERR0R*»*/1K,4 U0I5/) /J 
CALL PIOCNF 

C ...FOUND THE BACKUP PORT 

335 FCB(IBUS,HOH)=l 
RETURN 
C 

C ..kNO BACKUP PORTS ARE LEFT 

350 CONTINUE 

CALL MOMPFtHOHI 

IFJSTS(l) .NE.OI CALL SETSTS«24FBTUTYP (HDHH 
RETURN 
C 

C ...THE BACKUP PORT FAILED 

400 CONTINUE 

FCB18US,HOM»=0 
BTUSTS (HDH1=BTUSTSCHDH)-1 
RETURN 
C 

C ...THE WHOLE DTU FAILED 

500 CONTINUE 

IFAU = IFAU*l 
GOTO(600,700),FLTTYP 
C 

C ...ITS ONLY A TRANSIENT 

600 CONTINUE 
NTR=NTRF1 

MBTUTF<BTYP,2) = NBTUTFI BT YP ,2) ♦ 1 
C ...IS TRANSIENT RECOVERY SUCCESSFUL 

IF(GREATRiaTUTFUHDN,2>n RETURN 
NBTUTR<OTYP,2) = NBTUTR(BTYP,2) ♦! 

GOTO 705 
■ C 

C ...THE FAULT IS PERMANENT 

700 CONTINUE 

NBTUPFIBTYP,2I=N3TUPF<BTYP,2»4-1 
C ...ENTER LEAKY TRANSIENTS 

705 CONTINUF 

IF(CREATR(BTUC0VIHnH,2H I GOTO 900 
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C ...REMOVE HOH FROM SYSTEM 

00 710 1=1,3 

IBUS=BTUCOM{MOH, I> 

IFaBUS.EQ.OI GOTO 750 
115 FCniIDUS,MDHI=0 

710 CONTINUE 

C » j 

0 ...DETERMINE EFFECT OF FAULT 

750 CONTINUE 

120 BTUSTS«HDM)=0 

CALL HDMPF(MDH> 

IFTSTSTl) .NE.OJ CALL SETSTS 1 vBTUTYP (MOM) > 
RETURN 
C 

120 0 ...AM UNCOVERED FAULT OCCURED 

900 CONTINUE 

CALL SETSTSTFC0UCFC2n 

RETURN 

END 
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BTUCON 

INTEGER 

ARRAY 

FCB2 

REFS 

0 

BTUCOV 

REAL 

ARRAY 

FCC5 

REFS 

63 

BTUNO 

INTEGER 

ARRAY 

FCB2 

REFS 

130 

BTUSTS 

INTEGER 

ARRAY 

FCBl 

REFS 






DEFINED 

2I| 

BTUTFL 

REAL 

ARRAY 

FCB5 

REFS 

1 

BTUTYP 

INTEGER 

ARRAY 

FCB2 

REFS 

276 

8TYP 

INTEGER 



REFS 






DEFINED 

277 

BUS 

INTEGER 



REFS 






DEFINED 

0 

OUSSTS 

INTEGER 

ARRAY 

Fcai 

REES 

10 

FGB 

INTEGER 

ARRAY 

FCBl 

RFFS 






87 

0 

FCBUCF 

INTEGER 

ARRAY 

FCBUC 

REFS 

0 

FLG 

LOGICAL 

ARRAY 

FLAGS 

REFS 

0 

FLTTYP 

INTEGER 


FAULT 

REFS 

302 

I 

INTEGER 



REFS 

303 

TBUS 

INTEGER 



REFS 

1 

IFAU 

INTEGER 


G012 

REFS 

300 

ITYP 

INTEGER 



REFS 

0 

MOM 

INTEGER 


F.P, 

REFS 






62 






87 






122 

0 

NBTU 

integer 


FCB2 

REFS 

26 

N8TUPF 

INTEGER 

ARRAY 

FCB6 

REFS 

0 

NQTUTF 

INTEGER 

ARRAY 

FCB6 

REFS 

50 

NBTUTR 

INTEGER 

ARRAY 

FCB6 

REFS 

301 

NL 

INTEGER 


. 

REFS 

0 

NTR 

INTEGER 


C012 

REFS 

0 

PRT 

INTEGER 


F.P. 

REFS 

0 

STS 

INTEGER 

ARRAY 

STA TUS 

REFS 

FILE names 

MODE 
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350 
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63 
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400 


86 

56 
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500 


92 

3 0 


202 

600 


17 

94 


215 

700 


106 

94 


217 

70S 


109 

103 


0 

710 


116 

112 
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119 

114 
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FCBl 

98 


0 BUSSTS 

(8) 


FCB2 

61 


0 NBTU 

(1) 




' 

51 BTUNO 

(10) 


FCB5 

40 


0 BTUCOV 

120) 


FCB6 

60 


0 NBTUTF 

(20) 


C012 

2 


0 NTR 

(1) 


STATUS 

20 


0 STS 

(20) 


FAULT 

1 


0 FLTTYP 

(1) 


FCBUC 

6 


0 FC6UCF 
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FLAGS 

5 


0 FLG 
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313B 
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8 FOB 180) 88 BTUSTS (10) 

1 OTUTYP 110) 11 BTUCON (40) 

20 BTUTFL (20) 

20 NBTUPF (20) 00 MBTUTR (20) 

1 IFAU (1) 
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SUBROUTINE MDMPFIIIMOHI 
C 

C THIS ROUTINF DETERMINS THE EFFECT OF THE LOSS OF AN MOH OR OOU 
C FAULT ON THE FLIGT CRITICAL DEVICES. IT IS INVOKED BY BUSFLT 
C OR MOHFLT. 

C f 

C HDH IDENTIFIES THE FAULTY MOM OR OOU. 

C 

0*««««VvV««*«*V««V**«.«»**»*»f*****«***««««**»««VV«¥»«»**«»«*««*«*«**«V« 

COHMON/FCO2/NBTUtDTUTYP(10» f BTUCONllfl i4» iBTUNO(lO) 
C0MH0N/Fn07/NnDUDV,00UDVS(4l ,ODUOV 12 ,4> ,0DUDVN<4) 
C 0 MM 0 N/FCBa/NDFFDV, 0 FF 0 VST 6 ) »DFF0V<4i6»,DFFDVNt6> 
C0MH0N/FCB9/NKFF0V,NFFDVS<2,4) ,NFF0V t3 , 2 ,4) , NFFDVN (4 1 
COHHON/FCB10/NDFADV,DFADVS(3I,DFADV<4.3),DFADVN(3) 
COHMON/STATUS/STS<20) 

C0MM0N/FLAGS/FLG15J 
LOGICAL FLG 

INTEGER 8TUTYP,BTUC0NiBTUN0,00UDVS,00UQV,QDUDVH 
INTEGER OFFOVS* DFFDV,DFFDVN»DFAOVStOFAOV»OFAOVN»STStOOUNO 
MOM=IIMDH 
C 

C ...IS THE BTU A DOU, AM FF HOHf OR A FA MOM. 

MOHTYP = DTUTYPtHOH) 

GOTO! 1 00, 200 .30 01 .MDHTYP 
G 

C ...A ODU HAS FAILED 

100 CONTINUE 

FLC*2I=.TRUE. 

DDUNO = BTUNOtHDH) 

DO 120 I=l,NOOUDV 

IF(OOUOVlODUNO,I> .EQ.OTGOTO 120 
ODUDVIOnUNO,I)=0 
NL=DOUOVSa) -1 
ODUOVSm = NL 
IFINL.NE.OIGOTO 120 

C ...A FUNCTION IS NO LONGER AVAILABLE 

CALL SETSTS«ODUDVN«n> 

120 CONTINUE 

C ...THE CORRESPONDING PILOT CONTROLS ARE ALSO DISABLED 

FLG14I=.TRUE. 
no 130 I=2,NNFFDV 

IFINFFOVSIDDUNO.l) .EQ.O) GOTO 130 
NFFDVSl DDUNO, H=0 

IFINFFOVS{3-DDUNO,1» .NF.OT GOTO 130 
C ...A PILOT CONTROL FUNCTION HAS FAILED 

CALL SETSTSINFFOVNIin 
130 CONTINUE 
RETURN 
C 

C ...A FAULT OCCURS IN THE FLIGHT FORWARD HOMS 

200 CONTINUE 

FLG(3)=.TRUE. 

FLGI4J=.TRUE. 

MOM=BTUNO(MOH> 

DO 220 I=1,NDFFDV 
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IFtOFFOV<MOH, I) .EQ. OtOOTO 220 

DFFDV(MOH,I»=0 

NL=OFFOVS(I»-l 

DFFOVSUMKl. 

60 IFIHt.NE.OJ GOTO 220 

C ...A FUNCTION IS NO tONGFR AVAILABLE 

CALL SETSTSIOFFOVNan 
220 CONTIHUF 

C ...CHECK THE NON-OEOICATEO DEVICES 

65 IFIMOM.GE.AI RETURN 

00 250 1=1,2 

DO 230 J=l,HNFFOV 

IF( MFFOVSlI,J» .EO.OI GOTO 230 
IFIHFFOVtHDH, I,J».EQ.0» GOTO 230 

70 MFFOV«HBH,T,JI=0 

NL=NFFDVS(I,J)-1 
MFFOVSII,J> =NL 
IFINL.HE.OT GOTO 230 

r. ...CHECK TO SEE THAT THE CORRESPONOING DEVICE IS OK 

75 IFINFFOVSI3-I, JI.NE.O) GOTO 230 

CALL SETSTS(NFFOVNUJ) 

230 CONTINUE 
250 CONTINUE 
RETURN 

80 C 

C ...AN FA-HDH HAS FAILEO 

300 CONTINUE 

FLG«S)=.TRUE. 

HOM=BTUNO(HOH) 

85 00 320 I=l,NOFADV 

IFIDFAOVlHOHo n .EO.or GOTO 320 
OFAOV«MDH,I»=0 
NL=OFAQVS<U-l 
OFADVSa) = NL 

90 IFCNL.GT.II GOTO 320 

IFftNL.NE.OI.AND.a.NE.lH GOTO 320 

OFAOVSm = 0 

CALL seTSTS(nFAOVNII)> 

320 CONTINUE 

95 RETURN 

END 
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13 

DTUCON 

INTEGER 

ARRAY 

FCQ2 

REFS 

10 

18 






B3 

RTUNO 

INTEGER 

ARRAY 

FCB2 

REFS 

10 

18 

29 

54 

84 



1 

0TUTYP 

INTEGER 

ARRAY 

FCB2 

REFS 

10 

18 

23 





5 

DDUDV 

INTEGER 

ARRAY 

FCB7 

REFS 

ii 

18 

31 

DEFINED 

32 



15 

DDUOVN 

INTEGER 

ARRAY 

FCB7 

REFS 

11 

16 

37 





1 

ODUDUS 

INTEGER 

ARRAY 

FC07 

REFS 

11 

18 

33 

DEFINED 

34 



221 

DOUNO 

INTEGER 



REFS 

19 

31 

32 

42 

43 

44 







OEFIKEO 

29 







't 

OFAOV 

INTEGER 

ARRAY 

FCBIO 

REFS 

14 

19 

86 

DEFINED 

87 



20 

OFAOVN 

INTEGER 

ARRAY 

FCfilO 

REFS 

14 

19 

93 





1 

OFAOVS 

INTEGER 

ARRAY 

FCBIO 

REFS 

14 

19 

68 

DEFINED 

89 

92 


7 

OFFOV 

INTEGER 

ARRAY 

FCB8 

REFS 

12 

19 

56 

DEFINED 

57 



37 

OFFDVN 

INTEGER 

ARRAY 

FCOO 

REFS 

12 

19 

62 





1 

DFFDVS 

INTEGER 

ARRAY 

FC08 

REFS 

12 

19 

58 

DEFINED 

59 



0 

FLG 

LOGICAL 

ARRAY 

FLAGS 

PEFS 

n *1 

16 

17 

DEFINED 

28 

40 

52 

53 

224 

I 

INTEGER 



n J 

REFS 

31 

32 

33 

34 

37 

42 

43 






44 

46 

56 

57 

58 

59 

62 

68 






69 

70 

71 

72 

75 

66 

87 

68 






09 

91 

92 

93 

DEFINED 

30 

41 

55 






66 

85 







0 

IIHOM 

INTEGER 


F.P. 

REFS 

20 

DEFINED 

1 





226 

J 

INTEGER 



REFS 

68 

69 

70 

71 

72 

75 

76 






OFFIHEO 

67 







222 

HOH 

INTEGER 



REFS 

23 

29 

54 

56 

57 

65 

69 






70 

84 

66 

87 

DEFINED 

20 

54 

84 

223 

HOMTYP 

INTEGER 



REFS 

24 

DEFINED 

23 





0 

NBTl) 

INTEGER 


FCB2 

REFS 

10 







0 

NODUDV 

INTEGER 


FCB7 

REFS 

11 

30 

. 





0 

NDFADV 

INTEGER 


FCBIO 

REFS 

14 

85 






0 

NOFFOV 

INTEGER 


FCBfl 

REFS 

12 

55 






11 

NFFOV 

INTEGER 

ARRAY 

FCB9 

REFS 

13 

69 

DEFINED 

70 




41 

NFFDVN 

INTEGFP 

ARRAY 

FCBB 

REFS 

13 

46 

76 





1 

NFFOVS 

INTEGER 

ARRAY 

FCB9 

REFS 

13 

42 

44 

68 

71 

75 
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NL 

INTEGER 



REFS 

34 

35 

59 

60 

72 

73 

89 






90 

91 

DEFINED 

33 

58 

71 

88 


11 

NNFFOV 

INTEGER 


FCB9 

REFS 

13 

41 

67 





0 

STS 

INTEGER 

ARRAY 

STATUS 

REFS 

15 

19 
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SUBROUTINE HISCYC (BEG, ENDfNEXTI 

C THIS VERSION! 3 JULY 1974 

C THE PURPOSE OF THIS SUBROUTINE IS TO DETERMINE IF fl MINOR 
C CYCLE IS HISSED BECAUSE OF A RECOVERY PROCEDURE. 

C BEG BEGINNING OF THE RECOVERY PROCEDURE 
C END END OF RECOVERY PROCEDURE 
C NEXT 5 IF THE RECOVERY IS TOO CONG 

C BOR, OOR, EOR, OEOR HELP IN OETERHINING IF HE ALREADY LOST TIME IN 
C PREVIOUS ITERATION. 

C 

COMHON/C027/DOR,OEOR,H1SIT,TISL,MI,FRT1 

COMHON/C031/RATINT,ISYNC 

COHHON/CYC/LAUNHI 

COHHON/EXEC/HINCY,RTI,TODO,OLTIS,IDLE,SEQHAX,OOHHAX,MISITE 
integer sen 
integer seqhax 

REAL MINCY,IOLE 
REAL LAUNHl 
RFAL LASUMI 

C •••*****1‘****»**»******»*»l»»*<M<****<Mf*»»***-|l#* *¥•#•*•»♦***♦**•• »» 

C 

C DETERMINE BEGINNING OF TIME SLOI AND KIND OF CYCLE (MINOR I MI=Q» 
aORtrBEG 
EOR=END 

IF (ISYNC.EQ.OI GO TO 200 
C SYNCHRONOUS CASE 
SEQ=D 

IF (SOR.NE.DEORI GO TO 5 
BORrOOR 

HISTTE=MISITE-M1SIT 
GO TO 60 

5 CONTINUE 

IF (BOR.NE.OORI GO TO 6 
HISITE=MISITE“HISIT 
GO TO 60 

6 CONTINUE 
DOR=BOR 

TISL=AINT IOOR/RTU*RTI 
IF mSL.EO.BOR) nsL=TISL>-RTI 
C NEH RTI 

FRTI=TISL1RT1 

IF (BOR-TISL-HINCV) 10,10,20 

to m=o 

IF (LAUNHl. LT.TISL-RTI»LASUHI=TI5L-RTI 
GO TO 6n 
20 CONTINUE 

IF ((OLTIS.EQ. TISL» .ANO.tBOR.LT.TISLEMINCY+dDLE-TOOOniGO TO 10 
HT=1 

TISL=TISL ♦MINGY 

SO IF (LAUHHI.lt. TISL-MINCY»LASUHI = TISL-HINCY 
60 CONTINUF 
DEOR=EOR 
MISIT=0 

C determine HHAT IS LEFT TO BE DONE IN THIS MINOR CYCLE 
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60 


65 


70 


75 


00 


85 


90 


95 


100 


• 105 


IF (HI.EQ.l) GO TO 75 

IF ITISL.NE.OLTISJ TOnO=IQLE- tEMO-BEG) 

IF mSL.EO.OLTIS) TODO=TODO- (ENO-BEG» 

75 COMTINUF 

C DETERMINE IF RECOVERY LASTS AFTER NEH RT I <NO# GO TO 80 > 

IF (EOR.LE. FRTTI GO TO 80 
MISIT=H- TNT UEOR-FRTU/RTU 

IF UEOR-FRTD/RTI.EO.AINTHEOR-FRTIJ/RTin MISIT =H1SIT -1 
mSITE=HISITE»HISIT 
100 CONTINUE 

SEQ=HAX0t INTUEOR-LASUHI-RTI)/RTU,HISIT» 
IA=IMTIDOHHAX/RTI) 

IF (SEQ.LE.IA> GO TO 70 
HISITE=HISITE-SEQHA*1 
SEQ=1A Fl 
70 CONTINUE 

IF(SEQ.GT.SEQtlAX) SEQKAX = SEQ 
OLTIS=RTI*AINT(EOR/RTI1 
IF (OLTIS.EQ.EORI 0LTIS=0LTI S-RT I 
TOOO=IOLE 
LAUNHI=0LTIS 
GO TO 110 
80 CONTINUE 

C IN CASE OF MINOR DETERMINE IF RECOVERY LASTS OVER TIME SLOT 
IF (MI.EQ.l) RETURN 
IF (TODO.GE.O.> GO TO 95 
MISITE=HISITEf I 
MISIT=1 
GO TO ISO 
95 CONTINUE 
OLTIS=TISL 
110 CONTINUF 

IF (RTI*SEQ.GT.nOMMAX»NFXT=5 
RETURN 
C 

C ASYNCHRONOUS CASE 
EDO CONTINUE 

IF (BOR. EQ. DOR) GO TO ElO 
C HAS THERE AN INTERRUPT SINCE LAST RECOVERY 
Y=OEOR4RTI*Z.*RAHF»0.> 

IF (Y.GE.BOR) GO TO 210 

Y=OOR 

MISIT=0 

209 CONTINUE 
Y=Y*RTI»2.*RANF (0.) 

210 CONTINUE 

IF (Y.GT.EOR) GO TO 240 
HISITE=MISITE4l 
MISIT=HISIT+1 
GO TO 209 
240 CONTINUE 

IF (MISIT.GT.SEQHAXI ';EaHAX=mSIT 
IF (HISIT.GT. INT(DOHHAX/RTT)> NEXT=5 
OEOR=EOR 
DOR=BOR 


110 



subroutine Hiscyc 


cue 660D FTN V3.0-P355 0PT=1 D«»/a8/76 17.50.«t9 


PftGE 


3 


ENO 




SUBROUTINE HISCYC 



cnc 

6600 

FIN V3.0-P355 QPT=1 

04708/76 

17.50.49. 

PAGE 

4 


SYMBOLIC 

REFERENCE 

HAP 










ENTRY 

POINTS 

OEF LIME 

REFERENCES 









2 

MISCYC 
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0 

BEG 

REAL 


F.P. 

REFS 

24 

57 

58 

DEFINEO 

1 



257 

OOR 

REAL 



REFS 

29 

34 

38 

39 

40 

43 

48 






93 

96 

97 

110 

DEFINEO 

24 

30 


1 

DEOR 

REAL 


CD27 

REFS 

12 

29 

95 

DEFINED 

53 

109 


0 

DOR 

REAL 


C027 

REFS 

12 

30 

34 

93 

DEFINED 

38 

110 

6 

nOHMAX 

RFAL 


EXEC 

REFS 

IS 

67 

86 

108 




0 

END 

REAL 


F.P, 

RFFS 

25 

57 

58 

DEFINEO 

1 



260 

EOR 

REAL 



REFS 

53 

61 

62 

2*63 

66 

71 

74 






102 

109 

DEFINED 

25 





5 

FRTI 

REAL 


C027 
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REAL 
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14 
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45 

51 

DEFINEO 

76 


4 

MI 

INTEGER 


C027 

REFS 

12 

56 

80 

DEFINEO 

44 

49 


0 

MINGY 

REAL 
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15 

18 

43 

48 

50 
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C027 
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31 
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63 
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OEFINED 
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62 

63 
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FUNCTION MSTEPDfl .XHAT,IDIM, JOIN) 
DIMENSION XMAT< IDIH. JOIN) 

U=RANF (0. 0» 

DO 10 J=1.JDIM 

5 IF(U.tE.XHAT II, J») GOTO ZO 

10 CONTINUE 
STOP 4006 
20 CONTINUE , 

H5TEP0=J 

10 RETURN 

FNO 
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ENTRY 
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HSTEPD 

1 
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TYPE 

RELOCATION 


0 

I 

INTEGER 


F.P. 

REFS 

0 

lOIH 

INTEGER 


F.P. 

REFS 

53 

J 

INTEGER 



REFS 

0 

JDIH 

INTEGER 


F.P. 

REFS 

51 

MSTEPD 

INTEGER 



DEFINED 

52 

U 

REAL 



REFS 

0 

XHAT 

REAL 

ARRAY 

F.P. 

REFS 

EXTERNALS 

TYPE 

ARCS 

REFERENCES 



RANF 

RFAL 

1 
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DEF LINE 

REFERENCES 
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6 

4 

40 
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5 
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32 

10 * J 

4 6 

4D INSTACk EXITS 


DEFINED 1 
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5 


10 


15 


20 


25 


30 


35 


40 


45 


50 


55 


SUBROUTINE NFFFLT (MOHNO *STflNO , DEV) 

C 

C THIS ROUTINE DETERMINES THE EFFECT OF ft NONOEDTCATEO DEVICE FAILURE 
C UPON THE FLIGHT CRITICAL BUS EOUIPHENT GROUP 
C 

C HOMNO IDENTIFIES MOM 
C STAND IDENTIFIES THE PILOT STATION 
C DEV IDENTIFIES THE DEVICE 
C 

Q, ♦»,********»***♦***»»»**'**»*♦*♦»*♦»* *»»***»*»*T*** ••**•••* *********** 

COMMOH/FAULT7FLTTTP 

COMMON/C012/NTR,IFAU 

COMHON/STATUS/STS«20) 

C0HH0N/FCB9/NNFF0V,MFFDVSt2f4) ,NFFOV(3,2,4),NFFOVM(4) 
COHrtOM/FCBt57MMFFTF(4.2) ,WMFFFF<4,2) ,MNFFTRI4,2) 
C0HM0M/FCQ16/MFFTFB(4 i 2» tMFFTFL<4»2>fNFFCOVI4),NFFPFDr4*2) 
C0HM0N/FCBUC/FCBUCF(6) 

COMMON/FL AGS/FL G * 5) 

LOGICAL FLG 
INTEGER FCQUCF 
LOGICAL GREATR 

INTEGER 0FV,STAM0.FLTTVP,STS 
REAL MFFPFOtNFFTFOtNFFTFL 
C 

NL=NFFD»S 1ST AND, DEV) 

IfiNL.EO.OI RETURN 
FLGI4)=.TRUE. 

IF(MDMNO.NE.O> GOTO 400 
IFAU=IFAU*1 
GOrO{100,200).FLTTVP 
C 

C ...A TRANSIENT AFFECTING THE HHOLE UNIT 

100 CONTINUE 
NTR=NTR+1 

NNFFTF IOEV»U=l*NNFFTF (OEVtl) 

C ...IS the fault OETECTEO and RECOVERED FROM 

IF(GREATR(NFFrFDfOEV,lll» GOTO 900 
IFlGREATRJNFFTFUOEVtlll ) RETURN' 

NNFFTR COEV.l ) = 1 +NNFFTR lOEV .1 ) 

GOTO 2 05 
C 

C ...A PERMANENT FAULT OCCURS 

200 CONTINUE 

NNFFPF toeV,U=l*NKFFPF(OEV.l» 

IFIGREATRINFFPFDfDEV.H) ) GOTO 800 
a ...ENTER leaky TRANSIENTS 

205 CONTINUE 

NFFDVS ISTAHO,DEV)=0 
IFtNFFOVS (3-STANO.OEVl .NE.O) RETURN 
C ...THE SYSTEM HAS FAILED 

CALL SErSTS(MFFOVM(OFVI) 

RETURN ' 

G 

C ...THE DEVICES INTFRFACE TO ONE OF THE HDHS FAILS 

400 CONTINUE 
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PftGt 2 


60 


65 


70 


75 


00 


IF (NFFDV (NDMNO, STflNO, DEVI. El). B> RETURN 
IFAU=IFAU41 
GOTO»500,600I,FLTTVP 
C 

C ...TRANSIENT FAULT 

500 CONTINUE 
NIR=NTR4l 

NNFFTF «0EV,2) = NNFFTF (REV ,?) 4-1 

IFTTNL.Ea.ll.ANO.fGREATRTNFFTFOTOEViZIlll GOTO 800 
IFCGREATR(NFFTFH0EV,2)'I I RETURN 
NNFFTR«DEV,ZI = NNFFTRCDEV,2H-1 
GOTO 605 
E 

C ...PfTRHANENT FAULT 

600 CONTINUE 

NNFFPF{DEV,2) = NNFFPFIDeV,ZUl 
605 CONTINUE 

NFFOV IHOMNO, stand, DBV>= 0 
NFFOVS (STAND ,DEV)=NL-1 
IF(NL.EO.l) GOTO 205 
IFINL.GE.3t RETURN 
IF(GREATR(NFFCOV(OEVm GOTO 800 
RETURN 
C 

C ...UNCOVERED OR UNDETECTED FAULT 

800 CONTINUE 

GALL SETSTS|FCBUCF<5)I 

RETURN 

END 
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DEFINED 
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0 

FCDUCF 

INTEGER 

array 

FC8UC 

REFS 

17 


20 
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0 

FLG 

LOGICAL 

ARRAY 

. FLAGS 

REFS ' 

16 


19 

DEFINED 

27 




0 

FLTTYP 

INTEGER 


FAULT 

REFS 

11 


22 

30 

68 




1 

IFAU 

INTEGER 


C012 

REFS 

12 


29 

57 

DEFINED 

29 

57 


0 

HDHNO 

INTEGER 


F.P. 

REFS 

28 


56 

73 

DEFINED 

1 



20 

NFFCOV 

INTEGER 

ARRAY 

FCB16 

REFS 

16 


77 






11 

NFFDV 

INTEGER 

ARRAY 

FCB9 

REFS 

14 


56 

DEFINED 

73 




»(1 
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INTEGER 

ARRAY 

FC09 

REFS 

14 
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INTEGER 

ARRAY 
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RfeFS 

14 
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49 

DEFINED 
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74 


24 
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REAL 

array 

FCB16 

REFS 

16 


23 

45 
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NFFTFD 

REAL 

array 

FCB16 

REFS 

16 


23 

37 
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NFFTFL 

REAL 

ARRAY 

FCB16 

REFS 

16 


23 

38 

65 
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INTEGER 



REFS 

26 
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75 
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INTEGER 


FCD9 

PEFS 

14 
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NNFFPF 

INTEGER 

ARRAY 

FCB15 

REFS 

15 


44 

71 

OEFI NED 

44 

71 


0 

NNFFTF 

INTEGER 

ARRAY 

FCB15 

REFS 

IS 


35 
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DEFINED 

35 
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20 

NNFFTR 

INTEGER 

array 

FCB15 

REFS 

15 
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66 

DEFINED 
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NTR 

INTEGER 


0012 

REFS 

12 
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DEFINED 
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INTEGER 
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INTEGER 
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SUBROUTINE PACK tPLACE, LOO 
INTEGER PLACE 
DIMENSION PLACE <5> 

L0C=PLACE(5> 

IFfLOC.LE.OI LOC=0 
DO 10 I=lt4 
J=5-l 

lF<PLACEU».LE.O»PLACEUI=fl 
L0C=0R(SHIFHL0C,6> ,PLACE<J>» 
10 CONTINUF 
RETURN 
END 
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41 

I 

INTEGER 


- 

REFS 
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DEFINED 

e 

42 

J 

INTEGER 



RFFS 

2*6 

9 

DEFINED 

0 

LOG 

INTEGER 


F.P. 

REFS 

5 
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DEFINED 
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PLACE 

INTEGER 

ARRAY 

F.P. 

REFS 
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4 
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SUBROUTINE PFCBCF CQC 6B0D FTN V3.0-P355 0PT=1 0«t/08/76 17.50,49. PftGE 1 

SUBROUTINE PFCBCF 

CDHNON/FLTHIS/NFCVtlOl .NSYSFtlO) «PFRIO,TFRIO 
COMHON/FC0PF7PFRRUSCO) .PFRBTU ( 10 1 2»»PFROOU T4» tPFROFF T6> • 

1 PFRNFFT4,2> .PFRBFAIEl 

5 COMNON/FCBTF/TFRBUSCB» ,TFRDTUU0,2»,TFRDDUC4> .TFROFFTBI , 

I TFRNFF«4,2I ,TFROFM7) 

COHHON/FCB3/BUSTFL,BUSCOV . 

COMMON/FCR5/8TUCOVT10«2> fBTUTFLt 10,2) 

C0HM0N/FCB12/0DUC0V(4» ,DDUIFL«4) ,DDUTFD(4,2) 

10 C0HH0M7FCB14/nFFTFDJ6,41 tOFFTFLtfe) ,OFFOOV«6,3) 

COHHON/FCOl6/NFFTFD{4,2) ,NFFTFL(4,2) .NFFCOVI4) ,NFFPFO<4,2) 

COMMON/FCOlO/OFATFOf 3),0FATFL(3) ,OFACOVni 
C0MH0N/FC8NH/D0UNH(4»,0FFNM(6) ,NFFNH C4I ,0FANH(3) 

COMH0N7FCBNH170USNH(8) ,HBTUNM(10) 

15 INTEGER OOUNH,OFFNN,OFANH,8USNM 

REAL NFFTFO,MFFTFL,NFFCOV,NFFPFO 
PRINT ZOOO,PFRIO,TFRIO 
PRINT 2001 

PRINT 200Z,«nUSNH(II .PFRBUSll) ,TFRBUS(I) ,1=1,0) 

20 PRINT 2001 

PRINT 2003, JNBTUNMCI) , tPFRBTUCI, J) ,J=i,2) , TTFRBTUTI.J) ,J=1,2) »I=1, 

1 10 ) 

PRINT 2001 

PRINT 2002,T0OUNHCI) ,PFRODOtl) ,TFROOU t I) , 1=1 , 4) 

25 PRINT 2001 

PRINT 2002, tOFFNH<n ,PFROFF(I) .TFROFFII) ,1=1,6) 

PRINT 2001 

PRIHT2003,(NFFNM<I), «PFRNFFTI,J) ,J=1.2J , «TFRNFFII,J) ,J=1,2> ,1=1,4) 

PRINT 2001 

30 PRINT 2002, TDFANMtl) ,PFROFA(I) ,TFRDFA(1) ,1=1,2) 

2000 FORMAT ltHl,47HFtIGHT CRITICAL BUS PARTITION FAILURE RATES /// 

1 27H NET PERMANENT FAILURE RATE,F15.2,17H PER MILLION HRS// 

2 27H NET TRANSIENT FAILURE R ATE, Fi5 . 2, 17H PER MILLION HRS/// 

3 3X,6H0EVICE,15X, 14HPERHANENT RATE,16X,14HTRANSIENT RATE) 

35 2001 FORMAT T/IX) 

2002 FORMAT IIX , AlO, 1 4X , FI 0 . 2, 20X . FI 0 . 2) 

2003 FORMAT IIX , AlO, 1 OX , 2F10 . 2 , 1 OX , 2F10 . 2) 

PRINT 1000 

PRINT 1001,BUSTFL,BUSCOV 

40 PRINT 100Z,CNBTUNMII),BTUTFLn,l),OTUTFL(I,2) ,BTUCOVII,l), 

1 BTUCOVII, 2), 1=1,10) 

PRINT 1003, (ODUNHTI) ,DOUTFO(1,1) ,OOUTFO t I , 2) , BOUTFL ( I ) ,DDUCOV ( I) 

1 ,1=1,4) 

PRINT 1004, CDFFNHCI) , (DFFTFIHI.J) ,J=1,4) .OFFTFLTI) ,fOFFCOI/II,J) 

45 1 ,J=1,3),1=1,6) 

PRINT 1005, TNFFHHfl) ,NFFTF0n, 1) ,NFFTF0«I,2) ,NFFTFL(I,1) , 

1 NFFTFUI,2) ,NFFPFOII,U ,NFFCOV ( I) ,1=1,4) 

PRINT 1006, (OFANMtl) ,OFATFDII) ,OFATFHI) ,DFACOVII) ,1=1,2) 

1000 FORMAT <S4H1C0VERAGE PARAMETERS FLIGHT CRITICAL BUS PARTITION ) 

50 tool F0RMAT<//22H BUS TRANSIENT LEA KAGE, F 11 .6 

1 //23H BUS PERMANENT COVERAGE, FI 0 . 6) 

1002 FORMAT!// 2X,8HBTU NAME, 13X, 10HTRAHSIEHT LEAKAGE, IZX, 

1 18HPERHANENT C OVERAGE /1 0 T /IX , A1 0, iOX, 2F10 . 6, 1 OX, 2F10 . 6) ) 

1003 FORMAT!// IIH ODU DEVICE « lOX , 2 OHTRAMSIENT DETECT ION, iOX , 

55 2 17HTRANSIENT LEAKAGE, 13X, 18HPERHANENT COVERAGE/ 
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3 t|(/lX,A10,10)(*2F10.6,10X,Fl«».6f 16XiF14.6H 
100*1 FORHAT<//3Xt6HDEVICE,12X,20HTRANSIENT 0ETECTI0N,17X» 

1 i7htransient leakagei13x,19hperhanent coverage/ 

2 6l/lX,A10,itF10.6»l£)XtF10.6,10X,3F10 .6M 

1005 FORMAT «// . 

. 1 3X,6H0EVICE»12X*19HTRANSIENT OETFCT ION, 13X» 17HTRANSIENT LEAKAGE, 

2 11X,19HPERMANENT DETECTION, 8X ,18HPERHANENT COVERAGE/ 

3 (|1/1X,A10«10X, 2F10.6,10X,2F10i6,15X,F10.6,15X,F10.6l) 

1006 format t// „ 

1 3X,6H0EV1CE,8X,19HTRANSIENT nETECTION,5X,18HTRANSIENT LEAKAGE, 5X 

2 ,18HPERHANEHT C0VERAGE/2I/1X, AlO, 10X,F10.6, 12X,F10.6,13X,F10«6I I 
RETURN 

FNO 
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1 

PFCBCF 

1 

67 
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RELOCATION 



0 

BTUCOV 

REAL 

ARRAY 

FCB5 

REFS 

8 

24 

BTUTFL 

REAL 

ARRAY 

FOBS 

REFS 

a 

1 

BUSCOV 

REAL 


FGB3 

REFS 

7 

0 

RUSNH 

INTEGER 

ARRAY 

FCBNHl 

REFS 

14 

0 

BUSTFL 

REAL 


FCBT 

REFS 

7 

0 

DOUCOV 

REAE 

ARRAY 

FC812 

REFS 

9 

0 

OOUNH 

INTEGER 

ARRAY 

FCBNM 

REFS 

13 

10 

DDUTFD 

REAL 

ARRAY 

FC812 

REFS 

9 

4 

ODUTFL 

REAL 

ARRAY 

FCB12 

REFS 

9 

6 

OFACOV 

REAL 

ARRAY 

FCB18 

REFS 

12 

16 

OFANH 

INTEGER 

ARRAY 

FCBNM 

REFS 

13 

0 

OFATFO 

REAL 

ARRAY 

FCBl# 

REFS 

12 

3 

DFATFL 

RFAL 

ARRAY 

FC018 

REFS 

12 

36 

OFFCOV 

REAL 

ARRAY 

FCB14 

REFS 

10 

4 

DFFNM 

INTFGER 

ARRAY 

FCBNrt 

REFS 

13 

0 

OFFTFD 

REAL 

ARRAY 

FCB14 

REFS 

10 

30 

OFFTFL 

REAL 

ARRAY 

FCB14 

REFS 

10 
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I 

INTEGER 



REFS 

3*19 






5*42 

4*44 
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28 

540 

J 

INTEGER 



REFS 

2*21 
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NBTUNM 

INTEGER 

ARRAY 

FC0NH1 

REFS 

14 

0 

NFCV 

INTEGER . 

ARRAY 

FLTHIS 

REFS 

2 

20 

NFFCOV 

REAL 

ARRAY 

FC816 

REFS 

11 

12 

NFFNH 

INTEGER 

ARPAY 

FCBNH 

REFS 

13 

24 

NFFPFD 

REAL 

ARRAY 

FC816 

REFS 

11 

0 

NFFTFD 

REAL 

ARRAY 

FCB16 

REFS 

11 

10 

NFFTFL 

REAL 

ARRAY 

FCB16 

REFS 

11 

12 

MSYSF 

INTEGER 

array 

FLTHIS 

REFS 

2 

10 

PFRBTU 

real 

ARRAY 

FCBPF 

REFS 

3 

0 

PFRBUS 

REAL 

ARRAY 

FCflPF 

REFS 

3 

34 

PFROOU 

REAL 

ARRAY 

FCBPF 

REFS 

3 

56 

PFROFA 

REAL 

ARRAY 

FCBPF 

REFS 

3 

40 

PFROFF 

REAL 

ARRAY 

FCBPF 

PEFS 

3 

24 
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REAL 


FLTMIS 

REFS 
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46 
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REAL 

ARRAY 

FCBPF 

REFS 
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REAL 

ARRAY 

FCOTF 

REFS 
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REAL 

ARRAY 

FCBTF 

REFS 

5 

34 
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REAL 

ARRAY 

FCBTF 

REFS 

5 

56 

T FRO FA 

REAL 

ARRAY 

FCBTF 

REFS 


40 

TFROFF 

REAL 

ARRAY 

FCBTF 

REFS 

5 

25 

TFRIO 

REAL 


FLTMIS 

REFS 

2 

46 

TFRNFF 

REAL 

ARRAY 

FCBTF 

REFS 
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1000 

FHT 



49 


38 








421 

1001 

FHT 



50 


39 








431 

1002 

FHT 



52 


40 








444 

1003 

FMT 



54 


42 








462 

1004 

FHT 



57 


44 








500 

1005 

FHT 



60 


46 








521 

1006 

FHT 



64 


40 








350 

2000 

FHT 



31 


17 








400 

2001 

FMT 



35 


18 


20 


23 


25 


402 

2002 

FHT 



36 


19 


24 


26 


30 


406 

2003 

FHT 



37 


21 


28 
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17 


* I 


19 



IIB 



EXT 

REFS 




37 


• I 


21 



249 



EXT 

REFS 


NOT INNER 

42 


* J 


21 



7B 



EXT 

REFS 




52 


• J 


21 



70 



EXT 

REFS 




72 


• I 


24 



119 



EXT 

REFS 




112 


* I 


26 



IIB 



EXT 

REFS 




132 


* I 


28 



223 



EXT 

REFS 

MOT INNER 

135 


* J 


28 



63 



EXT 

REFS 




144 


• J 


28 



6B 



EXT 

REFS 




163 


* I 


30 



IIB 



EXT 

REFS 




212 


* I 


40 



158 



EXT 

REFS 




233 


* I 


42 



150 



EXT 

REFS 




254 


* I 


44 



263 



EXT 

REFS 


NOT INNER 

257 


* J 


44 



7B 



EXT 

REFS 




271 


• J 


44 



7B 



EXT 

REFS 




306 


* I 


46 



213 



EXT 

REFS 




333 


» I 


48 



133 



EXT 

REFS 
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31AS NAHE(LENGTH) 







FLTHIS 


22 



0 

NFCtf 

110) 




10 

HSVSF 

(10) 







21 

TFRIO 

(1) 








FCBPF 


48 



0 

PFR0US 

(8) 




8 

PFRBTU 

(20) 







32 

PFROFF 

(6) 



30 

PFRNFF 

(8) 


FCOTF 


48 



■0 

TFRBUS 

(8) 




8 

TFRBTU 

(20) 







32 

TFPOFF 

(6> 




38 

TFRNFF 

(8) 


FCB3 


2 



0 

BUSTFL 

m 




1 

BU5C0V 

(1) 


FOBS 


40 



0 

BTUCOV 

(201 




20 

BTUTFL 

(20) 


FCB12 


16 



0 

ODUGOU 

(4) 




4 

OOUTFL 

(4) 


FCB14 


48 



0 

DFFTFD 

(24) 



24 

0FFTFL 

(6) 


FC916 


28 



0 

'NFFTFD 

(8) 




B 

NFFTFL 

(8) 







20 

NFFPFD 

(81 








FCB18 


9 



0 

OFATFD 

(3) 




3 

3FATFL 

(3) 


FCONM 


17 



0 

nOUNM 

(4) 




4 

DFFNH 

(6) 







14 

DFANM 

(3) 








FCBNMl 


18 



0 

9USNH 

(8) 




8 

N8TUNH 

(10) 


29 


20 

PFRIO 

(1) 

28 

PFRDOU 

(4) 

46 

PFROFA 

(2) 

28 

TFROOU 

(4) 

46 

TFRDFA 

(2) 


8 

OOUTFO 

(8) 

30 

OFFCOV 

(18) 

16 

NFFCOV 

(4) 

6 

OFACOV 

(31 

10 

NFFNH 

(4) 
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5 


10 


15 


20 


25 


JO 


35 


40 


SUBROUTINE PFlSOftOC.IPH 

COHHON/RFRFC0/PFO t6) , f’Fl ( B ) , PF 2( 10 » ,PF2XU0i4> ,PF3 » 21 , PF3X ( 2 , 4) 
1,PF4<41,PF4X(4,6> ,PF5I4> fPF5X(4,4> *PF5Y(4,2) ,PF6 < 41 » PF6X «4» 3) 
OIMENSION IPI51 
IGRP=ISTEPD»6,PF01 
IPC11 = IP1 
IPI2I=IGPP 
IPI51 =0 

GOTO (1000. 20 00, 300 0. 40 00 .500 0 . 60 00 ) . IGRP 
1000 CONTINUE 

IPI3)=ISTEP0(8,PF1> 

IP (41=0 
GOTO 9000 
2000 CONTINUE 

HDH=ISTEPD(10,PF21 

IP(3)=MD» 

IP (4)=HSTePD(MDH,PF2X,10,4)-l 
GOTO 9000 
3000 CONTINUE 

MOM=T5TEPO(2,PF31 

rPI31=H0M 

IP(4I=MSTEP0(MDH,PF3X,2,4> 

GOTO 9000 
4000 CONTINUE 


5000 


6000 


9000 


HOH=ISTEPn(4,PF4) 

IP<7l=HOM 

IP(4»=HSTEPD(H0N.PF4X,4,61 
GOTO 9000 
CONTINUE 

IDEV=ISTEPOr4,PF5) 

IP(5)=IDEtf 

IP (3J=HSTEP0lI0EV,PF5Xi4.41-l 
IP(41=MSTEPtUIDFV,PF5Y,4.2| 
GOTO 9000 
CONTINUE 

HOH=ISTEPD|4,PF6> 

IP(3)=H0M 

lP(4)=NSTEPOtMmi,PF6X.4, 

GOTO 9000 
CONTINUE 

CALL PACKdP.LDCl 

RETURN 

END 
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SYMBOLIC 1 

REFERENCE 

HAP 




ENTRY 

POINTS 

OFF LINE 

REFERENCES 



2 

PFISO 

1 

42 




VARIABLES SN 

TYPE 

RELOCATION 



175 

lOEV 

INTEGER 




REFS 

173 

IGRP 

INTEGER 




REFS 

176 

IP 

INTEGER 

ARRAY 



REFS 







12 







32 

0 

IPl 

INTEGER 


F.P. 


REFS 

0 

LOG 

INTEGER 


F.P. 


REFS 

174 

MOM 

INTEGER 




REFS 







38 

0 

PFO 

REAL 

ARRAY 

RFRFCB 


REFS 

6 

PFl 

REAL 

ARRAY 

RFRFCB 


REFS 

16 

PF2 

REAL 

ARRAY 

RFRFCB 


REFS 

30 

PF2X, 

REAL 

ARRAY 

RFRFCB 


REFS 

100 

PF3 

REAL 

ARRAY 

RFRFCB 


REFS 

102 

PF3X 

REAL 

ARRAY 

RFRFCB 


REFS 

112 

PF4 

REAL 

ARRAY 

RFRFCB 


REFS 

116 

PF4X 

REAL 

ARRAY 

RFRFCB 


REFS 

146 

PF5 

REAL 

ARRAY 

RFRFCB 


REFS 

162 

PF5X 

REAL 

ARRAY 

RPRFCB 


REFS 

172 

PF5Y 

REAL 

ARRAY 

RFRFCB 


REFS 

202 

PF6 

REAL 

ARRAY 

RFRFCB 


REFS 

206 

PF6X 

REAL 

ARRAY 

RFRFCB 


REFS 

EXTERNALS 

TYPE 

ARCS 

RFFERENCeS 



ISTEPO 

INTEGER 

2 

5 


11 


MSTEPD 

INTEGER 

4 

17 


22 


PACK 


2 

41 
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1000 


10 
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30 

2000 


14 

9 



37 

3000 


19 

9 
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4000 


24 
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5000 


29 
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6000 


35 

9 
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9000 
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13 
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' 146 
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DEFINED 
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16 
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26 
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37 

38 
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DEFINED 

1 



41 

DEFINED 

1 



16 

17 

21 

22 

26 

DEFINED 

15 

20 

25 

36 

2 

5 




2 

11 
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IS 
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17 
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20 
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22 
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25 
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27 
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30 




2 

32 
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33 




2 

36 
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38 





15 

20 

25 

30 

36 

27 

32 

33 

38 



23 28 34 39 
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PFl 

(81 

14 PF2 

110) 

64 

PF3 

(2) 

66 PF3X 

(8) 

78 

PF4X 

(24) 

102 PF5 

(41 

122 
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5 


10 


15 


20 


25 


SUBROUTINE PIOCMF 

COMHON7FCBl/flUSSTS(8) ,FCB(8, 101 ,OTUSTS(101 
COHHON/FC07/NOOUnV»DOUDVS14l ,OOUOV (2(4) (00UDVN(4I 
COHHON/FC88/NDFFDV(OFFOtfS(6) ,OFFDV (4 (6) , 0FF0VN(6) 
COMNON/FOB9/NNFFOV.NFFDVS{2,4) ,NFFOV ( 3 , 2 ,4 ) ( NFFDVN(4 ) 
COMMON/FCBlO/NOFAnV.OFAOVSIT) .0FA0Vt4(3» ,DFADVN(3) 
INTEGER OTUSTS. OUSSTSiFCBtqDUOVtDOUDVN.ODUDVS.DFFDV 
INTEGER DFFOVN,OFFOVS,nFAOVS(nFAOV,OFAOVN 
PRINT 1001( nFCQtI(J> ;J=1(10) (1=1(8) 

PRINT lOOO.BTUSTS 

PRINT 1002( ( (DOUOVd(J)( J=l(*«) .1 = 1(2) 

PRINT lOOO.OBUDVS 

PRINT 100 3, ( (OFFOVd, J) , J=l, 6) , I =1 ,4 ) 

PRINT 1000,DFFDVS 

PRINT 2004,1 ((NFFOVd.J.K) ,J=1,2) ,K=1,4) ,1=1,3) 

PRINT lOOO.NFFBVS 

PRINT 10B5(({QFAOVd(J)(J=l,3) ,1 = 1*4) 

PRINT lflOO»DFADVS 

1000 FORMAT (1013) 

1001 FORMAT (///8<10I3/)) 

1002 FORMAT (///2I4I3/)) 

1003 FORMAT (///4C6I37)) 

2004 FORMAT (///8I8I37)) 

1005 FORMAT (///4(3I3/) ) 

RETURN 

END 
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SYMBOLIC REFERENCE MAP 


ENTRY 

POINTS 

OEF LINE 

REFERENCES 


1 

PIOCNF 

1 

25 



VARIABLES SN 

TYPE 

RELOCATION 


130 

BTUSTS 

INTEGER 

ARRAY 

FCBl 

REFS 

0 

nUSSTS 

INTEGER 

ARRAY 

FCBl 

REFS 

5 

DDUOV 

INTEGER 

ARRAY 

FC07 

REFS 

15 

DDUOVN 

INTEGER 

ARRAY 

FCB7 

REFS 

1 

OnUDVS 

INTEGER 

ARRAY 

FCB7 

REFS 

4 

OFADV 

INTEGER 

ARRAY 

FCBIO 

REFS 

EO 

OFAOVN 

INTEGER 

ARRAY 

FCBIO 

REFS 

1 

OFAOVS 

INTEGER 

ARRAY 

FCBID 

REFS 

7 

OFFOV 

INTEGER 

ARRAY 

FCBO 

REFS 

37 

OFFDVN 

INTEGER 

ARRAY 

■ FCB0 

REFS 

1 

OFFOVS 

INTEGER 

ARRAY 

FCB8 

REFS 

10 

FOB 

INTEGER 

ARRAY 

FCBl 

REFS 

164 

I 

INTEGER 



REFS 






DEFINED 

165 

J 

INTEGER 



REFS 






- DEFINED 

166 

K 

INTEGER 



REFS 

0 

NDOUOV 

INTEGER 


FCB7 

REFS 

0 

NOFAnV 

INTEGER 


FCBIO 

REFS 

0 

NOFFDV 

INTEGER 


FCB0 

REFS 

11 

NFFDV 

INTEGER 

ARRAY 

FCB9 . 

REFS 

41 

NFFOVN 

integer 

ARRAY 

FCS9 

REFS 

1 

NFFDVS 

INTEGER 

ARRAY 

FCB9 

REFS 

0 

NNFFOV 

INTEGER 


FCB9 

REFS 

FILE 1 

NAMES 

MODE 





OUTPUT 

FHT 


WRITES 

9 





17 

la 


2 

7 

10 



2 

7 




3 

7 

11 



3 

7 




3 

7 

12 



6 

8 

17 



6 

e 




6 

8 

18 



4 

7 

13 



4 

a 




4 

B 

14 



2 

7 

9 



9 

11 

13 

15 

17 

9 

11 

13 

15 

17 

9 

11 

13 

IS 

17 

9 

11 

13 

IS 

17 

IS 

DEFINED 

15 




3 
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4 

5 15 
5 

5 16 

5 

10 11 12 13 14 15 16 
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143 

1000 

FHT 


19 

10 

12 

14 


16 

145 

1001 

FHT 


20 

9 





15 0 

1002 

FHT 


21 

11 





153 

1003 

FHT 


22 

13 





161 

1005 

FHT 


24 

17 





156 

2004 

FHT 


23 

15 
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5 


* I 
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IIB 

EXT 

REFS 

NOT 

INNER 

6 


* J 

9 


6B 

EXT 

REFS 



?7 


* I 

11 


iia ' 

EXT 

REFS 

NOT 

INNER 

30 


* J 

11 


50 

EXT 

REFS 



51 


* I 

13 


IIB 

EXT 

REFS 

NOT 

INNER 

52 


* J 

13 


6B 

EXT 

REFS 



73 


* I 

15 


178 

EXT 

REFS 

Not 

INNER 

74 


• K 

15 


138 

EXT 

REFS 

NOT 

INNER 

75 


* J 

15 


lOB 

EXT 

REFS 
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• I 

17 


IIB 

EXT 

REFS 

NOT 

INNER 
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124 * J 17 63 EXT REFS 

COHHOM BLOCKS LENGTH MEMBERS - BIAS NAHE(LENGTH) 


FCBl 

98 

0 

BUSSTS 

(8) 

a 

FCB 

(BDI 

88 BTUSTS 

(10) 

FCB7 

17 

0 

NODUDV 

Cl» 

1 

ODUDVS 

(41 

5 DOUOV 

(SI 



13 

OOUDVN 

(41 






FCB8 

37 

0 

NDEFOV 

(11 

1 

OFFOVS 

(6) 

7 OFFDV 

(24) 



31 

DFFDVN 

(61 






FCB9 

37 

0 

NNFFDV 

(11 

1 

MFFDVS 

(8) 

9 NFFOV 

(24) 



33 

NFFDVN 

(41 






FCOlO 

19 

0 

NDFADV 
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1 

OFAOVS 

(3) 

4 OFAOV 

(121 



16 

OFAOVN 

(31 
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SUBROOTIME PIOSTS 

COMMON/rLTHIS/NFCV<10),NSYSFtl0J ,PFRIO»TFRlO 
COHMON/FCBCNT/FCBSF,FflLFCB(50> 

COHMON/FCB4/NaUSTF,NBUSPF,MBUSTR 

COMHON/C012/NTR,IFftU 

C0HH0N/FCB11/N0DUTF(4) iNDDUPF(4) »NODUTR(4) 

C0HM0N/FCB13/N0FFTFC6) *NDFFPFJ6) ,N0FFTR«6I 
C0MM0N('FC615/NMFFTF(4,2) ,NNFFPF(4,2) ,NNFFTR(4,2) 
COHHON/FCBi7/NOFATF{3» ,NDFAPF(3) ,N0FATR<3> 

INTEGER FCBSF.FALFCa 

COMMON /FC8NM/00UNH (4 »,0FFNH(61 , NFFNHI4 ) , DFANM < 3) 

OIHENSION NNl(3l,NKZ(3)tNN3(3) 

INTEGER 00UMH,DFFNH,DFANH 

COMHON/FCB6/NOTUTF(1D«2) « NBTUPF ( 10 t 2) iNBTUTR llQi 2) 

DO 10 1=1,3 

NNl (IJ = NBTUTFa,UtNBTUTFa,2» 

NN2CI)=H8TUPF<I,lMN0TUPFa,2) 

NN3II>=NOTUTR«I,l»fMBTUTR(I,2l 
10 CONTINUE 
PRINT 1000 
NPR=IFAU-NTR 
PRINT1001,NTR,NPR,1FAU 
PRINT lfl02,FCBSF 

NUNSF=FALFCO!ll fFALFCBlZI +FALFCB(31 ♦FALFCDI4I FFAtFCBISHFALFCBISl 

PRINT 1003.NUNSF 

PRINT 1004,IFALFCB(I)iI=l,6) 

PRINT 1005 

PRINT i00 6,NBUSTF,MBUSPF,NB'JSTR,FALFCBC24l 
PRINT 1007, NNH 1) ,NN2(1) ,NN3 11) ,FALFCB<251 
00 20 1=1,4 

PRINT 1008,OOUNM(Ii ,NDOUTF(n ,NDOUPF (I I ,NDOUTR tl » ,FALFCB(I46) 

20 CONTINUE 

PRINT 1009,NNH2) ,NN2<2) ,NN3»2| , FALFCBI261 
00 30 1=1,6 

PRINT 100B,DFFNMm .NDFFTFII) ,NDFFPF(I),NDFFTRm ,FALFCBfI+10» 
30 CONTINUE 
PRINT 1020 
DO 40 1=1,4 

Nl=NNFFTF{r,l)*NNFFTF<I,2) 

N2=NNFFPFJI,1) + NNFFPFU*Z> 

N3=NNFFTRtl,U»NNFFTR(I,2) 

PRINT 100 8,NFFNM«I»,N1,N2,N3,FALFC8(IH6> 

40 CONTINUF 

PRINT IDIO.NNIOI ,NN2!3» ,NN3t3» ,FALFCBI27) 

DO 50 1=1,2 

PRINT 1008,DFANHm,NOFATF(I),N0FAPF«I» ,NOFATRm .FALFCB (1*20) 

50 CONTINUE 

PRINT 1030,a,I = l,10» ,(NFCV(I) ,1 = 1,10) , (NSYSF ( I) , 1=1 , 1 0) 

RETURN 

1000 FORHAT( 

15BH1 FLIGHT CRITICAL BUS PARTITION MISSION STATISTICS ) 

1001 FORMAT 

120H TRANSIENT FAULTS ,17/ 

2Z0H PERMANENT FAULTS ,17/ 

320H . TOTAL FAULTS ,17/) 


Q W 

ii 

S s 

P c5 

Q 

ll 


8 


- 



SUBROUTINE 


60 


65 


70 


75 


PIOSTS . CdC 6600 FTN V3.0-P365 OPI = l 04/08776 KAUt «: 

1002 FORM4T(37H NUMBER OF FLIGHT CRITICAL FAILURES tI7» 

1003 FORMATI/30H UNCOtfEREO SYSTEM FAILURES ,171 


1004 FORMAT (/ 



122H 

BUS 

,17/ 

222H 

BTU 

,17/ 

322H 

noU DEVICE 

,17/ 

422H 

FF-MDM OEVTOC 

/ 

522H 

OFOICATEO 

■,17/ 

622H 

NOM-DEDICATED 

,17/ 

722H 

FA-MOM DEVICE 

,I7//> 

1005 FORMAT (44X,23HUNCOVEREO 

UNCOVERED / 


119X,50HTRANSIENT PERMANENT TRANSIENT PERMANENT I 

1006 FORHAT</6X,3HBOS,10X,I7,SX,I7,6X,I7,6X,I7I 

1007 FORMAT t/6X,3HOOU,10X,I7,5X,17,5X,I7,6X,I7» 

1009 FORHAT</6X,6HrF-MOH,7X,I7,5X,I7,6X,I7,6X,I7) 

1010 FORMAT l/6X,6HFA-H0M,7X,I7,5X,17,6X,17,6X,17l 

1008 FORHAT(8X,A10,1X,I7,5X,I7,6X,17,6X,I7> 

1020 FORMAT (1X1 

1030 FORHATl/// 

1 26H NUMBER OF FAULTS/MISSIOM ,1018// 

2 26H NUMBER OF MISSIONS ,1018// 

3 26M NUMBER OF SYSTEM FAILURES, 10I6> 

END 
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0 

ODUNH 

INTEGER 

ARRAY 

FOBNM 

REFS 

11 

13 

31 





16 

dfanh 

INTEGER 

ARRAY 

FCBNH 

■ REFS 

11 

13 

46 





tt 

OFFNM 

INTEGER 

ARRAY 

FCBNH 

REFS 

11 

13 

35 





1 

FALFCB 

INTEGER 

ARRAY 

FCBCNT 

REFS 

3 

10 

6*24 

26 

28 

29 

31 






33 

35 

42 

44 

46 




0 

FCnSF 

INTEGER 


FCBCNT 

REFS 

3 

10 

23 





A27 

I 

INTEGER 



'REFS 

3*16 

3*17 

3*18 

26 

5*31 

5*35 

2*39 






2*40 

2*41 

2*42 

5*46 

3*48 

DEFINED 

15 

26 






30 

34 

38 

45 

3*48 




1 

IFAU 

INTEGER 


C012 

REFS 

5 

21 

22 





2<i 

NDTUPF 

INTEGER 

ARRAY 

FCB6 

REFS 

14 

2*17 






0 

NBTUTF 

INTEGER 

ARRAY 

FCB6 

REFS 

14 

2*16 






50 

NBTUTR 

INTEGER 

ARRAY 

Free 

PEFS 

14 

2*18 






1 

NQUSPF 

INTEGER 


FCD4 

REFS 

4 

28 






0 

NBUSTF 

INTEGER 


FCB4 

REFS 

4 

28 






2 

NBUSTR 

INTEGER 


FCB4 

REFS 

4 

28 






(« 

NOOUPF 

INTEGER 

ARRAY 

FCBll 

REFS 

6 

31 






0 

NDDUTF 

INTEGER 

ARRAY 

FCBll 

REFS 

6 

31 






10 

NOOUTR 

INTEGER 

ARRAY 

FCBll 

REFS 

6 

31 






3 

NDFAPF 

INTEGER 

ARRAY 

FCB17 

REFS 

9 

46 






0 

NDFATF 

INTEGER 

ARRAY 

FCBIT 

REFS 

9 

46 






6 

NOFATR 

INTEGER 

ARRAY 

FC817 

REFS 

9 

46 






6 

•NDFFPF 

INTEGER 

ARRAY 

FCB13 

REFS 

7 

35 






0 

NOFFTF 

INTEGER 

ARRAY 

FCB13 

REFS 

7 

35 






lA 

NOFFTR 

INTEGER 

ARRAY 

FC813 

REFS 

7 

35 






0 

NFDV 

INTEGER 

ARRAY 

FLTMIS 

REFS 

2 

48 






12 

NFFNM 

INTEGER 

ARRAY 

FCBNH 

REFS 

li 

42 






10 

NNFFPF 

INTEGER 

ARRAY 

FCB15 

REFS 

8 

2*40 






0 

NNFFTF 

INTEGER 

ARRAY 

FC615 

REFS 

8 

2*39 






20 

NNFFTR 

INTEGER 

ARRAY 

. FCB15 

REFS 

8 

2*41 






435 

NNl 

INTEGER 

ARRAY 


REFS 

12 

29 

33 

44 

OEFINEO 

16 


440 

NN2 

INTEGER 

ARRAY 


REFS 

12 

29 

33 

44 

DEFINED 

17 


443 

NN3 

INTEGER 

ARRAY 


REFS 

12 

29 

33 

44 

OEFINEO 

18 


430 

NPR 

INTEGER 



REFS 

22 

OEFINEO 

21 





12 

NSYSF 

INTEGER 

ARRAY 

FLTMIS 

REFS 

2 

48 






0 

NTR 

INTEGER 


C012 

REFS 

5 

21 

22 





431 

NUNSF 

INTEGER 



REFS 

25 

DEFINED 

24 





432 

N1 

INTEGER 



REFS 

42 

DEFINED 

39 





433 

N2 

INTEGER 



REFS 

42 

OEFINEO 

40 





434 

N3 

INTEGER 



REFS 

42 

DEFINED 

41 





24 

PFRIO 

REAL 


FLTMIS 

REFS 

2 







25 

TFRIO 

REAL 


FLTMIS 

REFS 

2 
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WRITES 
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0 

50 



47 
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1000 

FHT 


50 
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1001 

FMT 


52 

22 










311 

1002 ' 

FHT 


56 

23 










317 

1003 

FMT 


57 

25 










324 

1004 

FMT 


58 

26 










351 

1005 

FMT 


66 

27 










363 

1006 

FMT 


68 

28 










367 

1007 

FHT 


69 

29 










405 

1008 

FMT 


72 

31 

35 


42 


46 





373 

1009 

FHT 


70 

33 
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1010 

FMT 


71 

44 










411 

1020 

FMT 


73 

37 
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1030 

FHT 


74 
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15 19 
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EXT 

REFS 
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30 

• 1 


34 36 

20B 


EXT 

REFS 
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40 
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38 43 
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EXT 

REFS 
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EXT 

REFS 
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FLTMIS 


22 


0 NFCV 

1101 



10 

NSYSF 

(10) 

20 

PFRIO 

(11 





21 TFRIO 

(11 










FCBCNT 


51 


0 FCBSF 

(1) 



1 

FALFCB 

(50) 





FC04 
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0 N8USTF 

(U 



1 

MBUSPF 

(1) 

2 

NBUSTR 

(11 


C012 
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0 NTR 

(U 



1 

IFAU 

(1) 





FCBll 


12 


0 NODUTF 

(41 
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NDDUPF 

(4) 

8 

NDOUTR 

(41 


FCB13 


18 


0 NDFFTF 

(6) 



6 

NDFFPF 

(61 

12 

NOFFTR 

(61 


FCR15 


24 


0 MNFFTF 

I8» 



6 

NNFFPF 

(8) 

16 

NNFFIR 

(81 


FCB17 


9 


0 NDFATF 

(31 



3 

NOFAPF 

(3) 

6 

NOFATR 

(31 


FCBNH 


17 


0 DOUNM 

(41 
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(61 
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NFFNH 
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(31 










FCB6 


60 
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SUBROUTINE ROIO FR (PFRIO, TFRI 0) 

COHHON/PFRFCB/PF0(6> t PFl (8) ,PF2< ID 1 ,PF2X (TO , 4) »PF3 <2 > . PF3X « 2, 4> 
l,PF4t4lfPF4X t4|6l ,PF5(4) ,PF5X(4i4l ,PF5Y<4,2» ,PF6 (4> t PF6X t 4, 3> 
COMMON /TFRFCO/TFO r&» ,TF1(8) ,TF2 ( 10» , TF2X I10» 41 »TF312» ,TF3X C2»4J 
1,TF4<4),TF4X(4,6| ,TF5<4) ,TF5X C4t4) ,TF5T (4, 2» iTF6<4> ♦ TF6X (4, 31 
COHMON/IFCB7/NDOUOViODUDVS(4) tO0U0U(2,4) 
C0HM0N/IFCB8/NDFFDV,0FF0VS<6) i0FF0V(4t6» 
C0H«0N/lFC09/MNFFDV,NFFOVS«2,4),NFF0VC3,2t4) 
DOHMON/IFCB10/NnFADV,OFAnVSt3) ,DFADVt4f3) 
COHHON/IFCni/BUSSTSte»,FCB(8,10) .BTUSTSUD) 
C0MM0N/FCBPF/PFRBUS(8» ,PFRBTU < 10 , 2 1 ,PFRDDU(4I tPFR0FF<6l» 

1 PFRNFF<4,2> *PFRBFAt2» 

COHHON/FCBTF/TFR8USI8J , TFRBTU < 10 , 2) , TFRODU (4 1 .TFR0FF(6), 

1 TFRNFF<4,2) ,TFRDFAt2) 

INTEGER DDU0VS,0DU0V,DFFDVS,0FFDV,DFADVS,0FADVt8USSTStFCB,BTUSTS 
CALL G10RFUT0T,PF1*PFR9US) 

PFO<1»=TOT 

CALL GI0RF2tT0T,PF2,PF2X,BTUSTS,'PFR0TU» 

PF0<2>=TOT 

CALL GiORF3(TOT.PF3,PF3X,OOUOV,2»4tPFRODU» 

PFOI31=TOT 

CALL GI0RF3IT0T ,PF4tPF4X,nFFDV«4,6,PFRDFF) 

PFOI41=TOT 

CALL GIORF4CTOT ,PF5, PF5X ,PF5 Y t NFFDVS,PFRNFFI 
PFOI5»=TOT 

CALL GIPRF3 ( TOT ,PF6*PF6X .DFAOV t4 i2»PFR0F A) 

PFO»6)aTOT 

CALL GI0RF1(T0T,TF1,TFRBUS» 

TFOU)=TOT 

CALL G10RF2 (TOT, TF2,TF2X,BTUSTS, TFRBTU) 

TF0«2)=TOT 

CALL GI0RF3(T0T,TF3,TF3X,DDUDV,2,4,TFR0DU) 

TFO(3)=TOT 

CALL GIORF3(TOT,TF4,TF4X,PFFOV,4,6,TFROFF) 

TFOI4)=TOT ' 

CALL G10RF4IT0T,TF5,TF5X,TF5Y,NFF0VS,TFRNFF) 

TFO(5)=TOT 

CALL GI0RF3|T0T,TF6,Tr6X,0FADV,4,2,TFR0FA) 

TFO(6)=TOT 
DO 10 1=2,6 

TFO(I)=TFO(I)fTFO(T-t) 

PF0(I)=PF0(ntPF0a-l» 

10 CONTINUE 
PFRIO=PFO (6) 

TFRIO=TFO (6) 

DO 20 1=1,6 

IF ( PFRIO. NE. 0) PFO(I)=PFOm/PFRIO 
IFITFRIO.NF.OI TFD(I)=TF0 (I) /TFRI 0 
20 CONTINUE 
RETURN 
END 
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ENTRY 
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RDIOFR 

t 

50 




VARIflBEES SN 

TYPE 

RELOCATION 



130 

8TUSTS 

INTEGER 

ARRAY 

IFCBl 

REFS 

10 

0 

RUSSTS 

INTEGER 

ARRAY 

IFCDl 

■ REFS 

10 

5 

ODUOU 

INTEGER 

ARRAY 

IFCD7 

REFS 

6 

1 

OOUOVS 

INTEGER 

ARRAY 

IFC07 

PEFS 

6 

4 

DFAOV 

INTEGER 

ARRAY 

IFCOlO 

REFS 

9 

1 

OFAOVS 

INTEGER 

ARRAY 

IFCOlO 

PEFS 

9 

7 

OFFDV 

INTEGER 

ARRAY 

IFCOB 

PEFS 

7 

t 

IJFFOVS 

INTEGER 

ARRAY 

JFCBB 

REFS 

7 

10 

FCB 

INTEGER 

ARRAY 

IFCBl 

REFS 

10 

226 

I 

INTEGER 



REFS 

3»41 

0 

NODUDV 

INTEGER 


IFCB7 

REFS 

6 

0 

NDFAOV 

INTEGER 


IFCBia 

REFS 

9 

0 

NOFFOV 

INTEGER 


IFCB8 

REFS 

7 

11 

NFFDV 

INTEGER 

ARRAY 

IFCB9 

REFS 

a 

1 

NFFOVS 

INTEGER 

ARRAY 

1FCB9 

PEFS 

8 

0 

NNFFOy 

INTEGER 


IFCB9 

REFS 

6 

10 

PFRBTU 

REAL 

ARRAY 

FCDPF 

REFS 

11 

D 

PFR8US 

REAL 

ARRAY 

FRBPF 

REFS 

11 

34 

PFROOU 

REAL 

ARRAY 

FG8PF 

REFS 

11 

56 

PFRDFA 

REAL 

ARRAY 

FCBPF 

REFS 

11 

40 

PFROFF 

REAL 

ARRAY 

FCBPF 

REFS 

11 

0 

PFRIO 

REAL 


F.P. 

REFS 

2»47 

46 

PFRNFF 

REAL 

ARRAY 

FCBPF 

REFS 

11 

0 

PFO 

REAL 

ARRAY 

RFRFCa 

REFS 

2 






21 

23 

6 

PFl 

REAL 

ARRAY 

RFRFCn 

PEFS 

2 

16 

PF2 

REAL 

ARRAY 

RFRFCB 

REFS 

2 

30 

PF2X 

REAL 

ARRAY 

RFRFCa 

REFS 

2 

IQO 

PF3 

REAL 

ARRAY 

RFRFCB 

REFS 

2 

102 

PF3X 

REAL 

ARRAY 

RFRFCB 

REFS 

2 

112 

PF4 

REAL 

ARRAY 

RFRFCB 

REFS 

2 

116 

PF4X 

REAL 

ARRAY 

RFRFCB 

REFS 

2 

146 

PF5 

REAL 

ARRAY 

RFRFCB 

REFS 

2 

152 

PF5X 

REAL 

ARRAY 

RFRFCB 

REFS 

2 

172 

PF5Y 

REAL 

ARRAY 

RFRFCB 

REFS 

2 

202 

PF6 

REAL 

ARRAY 

RFRFCB 

REFS 

2 

206 

PF6X 

REAL 

ARRAY 

RFRFCB 

REFS 

2 

10 

TFRBTU 

REAL 

ARRAY 

FCBTF 

REFS 

13 

0 

TFRBOS 

REAL 

ARRAY 

FCBTF 

REFS 

13 

34 

TFROOU 

REAL 

ARRAY 

FCBTF 

REFS 

13 

56 

TFROFA 

REAL 

ARRAY 

FCBTF 

REFS 

13 

40 

TFRDFF 

REAL 

ARRAY 

FCBTF 

PEFS 

13 

0 

TFRIO 

REAL 


F.P. 

RFFS 

2*48 

46 

TFRNFF 

REAL 

ARRAY 

FCBTF 

REFS 

13 

0 

TFO 

REAL 

ARRAY 

T FRFCB 

REFS 

4 






33 

35 

6 

TFl 

REAL 

ARRAY 

TFRFCO 

PEFS 

4 

16 

TF2 • 

REAL 

ARRAY 

T FRFCB 

RFFS 
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RELOCATION 



30 

TE2X 

real 

ARRAY 

TFRFCB 


REFS 

100 

TF3 

REAL 

ARRAY 

TFRFCO 


REFS 

102 

TF3X 

REAL 

array 

TFRFCB 


REFS 

112 

TF4 

REAL 

ARRAY 

TFRFCO 


REFS 

116 

TF4X 

REAL 

ARRAY 

TFRFCB 


REFS 

146 

TF5 

REAL 

ARRAY 

TFRFCB 


REFS 

152 

TF5X 

REAL 

ARRAY 

TFRFCB 


PEFS 

172 

TF5Y 

REAL 

ARRAY 

TFRFCB 


REFS 

202 

TF6 

REAL 

ARRAY 

TFRFCO 


REFS 

206 

TF6X 

REAL 

ARRAY 

TFRFCB 


REFS 

225 

TOT 

REAL 




REFS 







23 







31 
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GIORFl 


3 

16 


28 


GIORF2 


5 

18 


3 0 


GI0RF3 


7 

20 


22 


GI0RF4 


6 

24 
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43 

40 
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PROPERTII 

53 

10 
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40 43 

40 

INSTACK 

64 

20 
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46 49 
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OPT 

COMMON 

BLOCKS 

LENGTH 

MEMBERS 

- BIAS NAMeaENGTHI 


RFRFCB 

146 


0 PFO 

(6) 






24 PF2X 

1401 






74 PF4 

14) 






106 PF5X 

(16) 






134 PF6X 

(12) 



TFRFCB 

146 


0 TFD 

(6) 






24 TF2X 

(40) 






74 TF4 

(4) 






106 TF5X 

(16) 






154 TF6X 

(12) 



IFCB7 

13 


0 NDOUDV 

(1) 



IFCB8 

31 


0 NDFFOV 

(1) 



IFC09 

33 


0 NNFFOV 

U) 



IFCBIO 

16 


0 NOFADV 

(1) 



TFCBl 

98 


0 DUSSTS 

(8) 



FCBPF 

4S 


0 PFRBUS 

(S) 






32 PFROFF 

(6) 



FCBTF 

48 


0 TFRBUS 

(8) 



32 TFRDFF (6) 

STATISTICS 

PRORRAH LENGTH 2278 151 

COMMON LENGTH 11039 579 
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6 

PFl 

(8) 

14 

PF2 

(10) 

64 

PF3 

(2) 

66 

PF3X 

(8) 

78 

PF4X 

(24) 

102 

PF5 

(4) 

122 

PF5Y 

(8) 

130 

PF6 

(4) 

6 

TFl 

(S) 

14 

TF2 

(10) 

64 

TF3 

(2) 

66 

TF3X 

(B) 

78 

TF4X 

(24) 

102 

TF5 

(4) 

122 

TF5Y 

18) 

130 

TF6 

(4) 

1 

OOUDVS 

(4) 

5 

ODUOV 

(8) 

1 

□FFOVS 

(6) 

7 

DFFOV 

(24) 

1 

nffdvs 

(8) 

9 

NFFOV 

(24) 

1 

OFADVS 

(3) 

4 

OFAOW 

112) 

8 

fcd 

(80) 

88 

BTUSTS 

(10) 

8 

PFRBTU 

(20) 

26 

PFROOU 

(4) 

38 

PFRHFF 

(8) 

46 

PFRDFA 

(2) 

6 

TFRBTU 

(20) 

28 

TFROOU 

(4) 

38 

TFRNFF 

(8) 

46 

TFROFA 

(2) 
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SUBROUTINE SETSTSHSTSI 
COMHON/STAIUS/STS(ZO» 
INTEGER STS 
M=STSU» 

IF(N.GT.18l STOP 1001 

STS(l) =N*1 

STS <N»2» = ISTS 

RETURN 

END 



SUBROUTTNE SCTSTS 


SYMBOLIC REFERENCE HAP 


ENTRY POINTS DEE LINE 
2 SETSTS 1 

VARIABLES SN TYPE 
0 ISTS INTEGER 

15 N INTEGER 

0 STS INTEGER 

COMMON BLOCKS LENGTH 

STATUS 20 

STATISTICS 

PROGRAM LENGTH 20 B 

COMMON LENGTH 2AB 


REFERENCES 

b' 

relocation 

' F.P. REFS 

REFS 

ARRAY STATUS REFS 

MEMBERS - BIAS NAMEtLENGTHI 
0 STS <20) 


16 

20 


ro 
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SUBROUTINE STATEUNEXT) 

C THIS VERSION* MARCH 1976 

C ACFAUI10,6>IS THE TABtE OF THE ACTIVE FAULTS. THEY ARE MO MORE THAN 10 
C ACFAUtl.il I OCCURRENCE TIME. 

C ACFAUIIkZ) « nISAPPEARANCE TIME. 

C ACFAUII,31 I MOnULE 1=0 TO INDICATE NO FAULTS*. 

C ACFAUIT«4» « COHPUTFR, 

C ACFAU(I,5» I EXTENT. 

C ACFAUtI,6) 1 DETECTION TIME. 

C DETEC DETECTION TIME COMPUTED BY OETTIME 
C EXTEN IS THE EXTENT OF THE FAULT 

C IDET'ECT points in ACFAU to the NEXT FAULT TO BE DETECTED 
C PTR POINTS TO THE NEXT FAULT TO OCCUR 
C NEXT = NEXT STATE 

QifVVVV***** **•»•**** ***•»*»** »****»*♦* •*•*•*** 

C 

COHMON/COMl/IDIM, TABLE (300,4* , PTR, EXTEN, 1DETEC,REC0V, DELAY, TIME 

COHHOH/COM3/ACFAUtlO,6»,ENDHIS,MEMSI2,TC 

COHHON/COH7/REASON 

C0MM0N/C0H8/F0C0 

COMMON/COll/HISTAX 

COMHON/C015/NOON<5* ,NHORK 

COHHON/C031/RAT1NT, ISYNC 

COMHON/G038/ lOCUl 5) , MONO ED , NHOIO 

COMMON/C042/MISTKH3* 

DIMENSION 160(5* 

INTEGER EXTEN,PTR 
INTEGER REASON 

Q *»**»»♦**»*****♦■»*»•»•»*•***•**»•»»**♦*****•*•*•••*••♦*•*•*••*•*♦**•►* 

c 

IRA = 0 

0 SUPPRESSION OF THE FAULTS IN THE RHITCHEO OFF COMPUTER 
DO 10 J=1,IDIH 

IF(ACFAUt J,3*.EQ.D.* GO TO 15 
I=ACFAU(J,4* 

IF (NOONd* .EQ.l* GO TO 10 
ACFAU(J,3*=0. 

IRA=IRA*1 

IF( (ACFAU(J,2» .GE.ENOHIS* .OR. ( IRA.NE ,1 * > GOTO 10 
M1STAK='MISTAK(1 

HISTKI (NHORK-1* =MJSTK1 (NHORK-1 » + l 
10 CONTINUE 
15 CONTINUE 

IF (IRA.GE.l* CALL GATHER 
C IF THERE IS A LURKING FAULT GO TO 1 
IF (ACFAU(1,3> .NE.O.* GO TO i 
4 CONTINUE 

C IF NO MORE'FAULT RETURN (NEXT=6» 

TIHE=TABLE(PTR,1* 

IF ITINE.LT.ENOHIS* GO TO 2 
22 CONTINUE 
NEXT=6 
RETURN 
2 CONTINUE 

CALL FIFAU|IN,NEXT, ISYNC* 


ow 
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GO 


65 


70 


75 


80 


85 


90 


95 


100 


IFeHEXT.EO.SI RETURN 
IFCIN.EO.OI GOTO 4 
C 

C DETERMINE NEXT DETECTION TIME. 

1 CONTINUE 

OET=100000000QOOO. 

DO 20 I=1,I01H 

C FIRST RECORD THATS NON-ACTIVE SAYS YOU VE LOOKED ENOUGH 

IF (ACFAU(I,3>.EQ.O.) GO TO 21 
IF «ACFAUIi; 6) »GE. DETl GO TO 20 
0ET=ACFAUI1,6) 

IDETEC=I 

F0C0=ACFAUa0ETEC»4) 

20 CONTINUE 

21 CONTINUE 
C 

C TESTS ON MULTIPLE FAULT. 

C IF NO FAULT BEFORE OET^ START RECOVERY. 
TIME=AHINlfTABLEIPTR,l>,DET) 

IF ITINE.GE.ENOMISJ GO TO 22 
IF (TIME.NE.DET) 60 TO 27 
NEXT=2 

C TEST ON MULTIPLE FAULT 

K = lOETEC ♦ 1 

C IGO INDICATES A FAULT IN A COMPUTER IF 1 
IF fK.GT.IDIMI RETURN 
DO 26 1=1,5 

26 iGom=o 
IGO(ACFAUaOETEC,4»)=l 
MUL=1 

DO 23 I=K,10IM 

IF <ACFAUa,3> ,EQ,0.) GO TO 24 

IF (ACFAU(I,6) .GT.DETI GO TO 23 

IF IIG0(ACFAU(I,4)).E0.1) GO TO 23 

MUL=HUL+1 
IGOlACFAUa, 4)1=1 
23 CONTINUE 
24 CONTINUE 

IF ((HUL.GE.NHORK-1) .AND.t NH0RK.GE.3)) NEXT=3 
RETURN 
C 
C 

C NEW FAULT BFFORE DETECTION 

27 CONTINUE 

CALL FIFAUIIN,NEXT,1SYNC) 

IF«NEXT.EQ.5)RETURN 
IF(IN.EQ.O) GOTO 21 
GOTO 1 
END 
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SUBROUTINE STATE2(NEXT) 

C THIS VERSION! MARCH 1976 

C THIS SUBROUTINES SIMULATES THE RECOVERY PROCEDURE <ROLtAHEAO) 

C 

*>***♦*♦* ********* ********** ********* ********* ******** 

COHHON/COHl/IOIMf TABLE (300,4»»PTR,EXTENtIOETEC,RECOV»DELAYtTIME 

COMHOM/COM3/AOFAU«10,6»tENOMIS»MEMSIZ,TC 

COMHON/COM7/REASON 

COHMON/COHO/FOCa 

COMMON /CO 11/HIS TAK 

COMHON/C015/NOON(5) ,NHORK 

C0MH0M/C017/MTRI»NQUA 

COMMON/COia/IREP 

COMHOM/C028/HOOSIHtNSPB 

C0HM0N/C031/RATIMT,ISYNC 

COMMON/C041/IOATAS,I3 

C0HMON/0O42/MtSTKn3> 

C0MH0N/PERM/LASTI5> iMTNINTiPSUC 

COMMON/PH ILH3/NTR 3, NTR2,NTR1,NTNR1 

COHMON/RAHEAO/RACPU 

INTEGER EXTENiPTR 

INTEGER REASON 

REAL LAST .MINIMI 

Q********** ********* ********* ********** ********* *«*«•***» ******** 

C 

C IREPT COMPUTER IN CHARGE OF THE REPAIR 
1REP=IPANU,NH0RK-1) 

40 CONTINUE 

IF UNOONIIREPI .EQ.U .AN0.<IRFP.NE.INT<F0C0JI) GO TO 30 
IREP^IREPTl 

IF IIREP.GT.HOOSIM) IREP=1 
GO TO 40 
30 CONTINUE 
lOELET=0 

C IF THE FAULT IS NOT RECURRENT. GO TO 10 

IF mHE-LAST<FODO>.GT.HINlNn GO TO 10 
NEXT=7 
RETURN 
10 CONTINUF 

C IF THERE IS NO OTHER FAULT. GO TO 20 

IF fTABLE(PTR,l>.GI.TIHETRECOV1 GO TO 20 
CALL FIFAUIIN.NEXT.I) 

IF«NFXT.EQ.5> RETURN 
GOTO 10 
C 

20 CONTINUE 

C AFAULT IN AN OTHER COMPUTER PREEMPTS THE FIRST ONE WHICH IS SEEN AS A 
C PERMANENT 
IOE=0 

DET=TIHE+RECOV 
no 21 1=1,IDIM 

IF 1ACFAU«I,3) .EQ.O. J GO TO 2? 

IF lACFAUtl,4> .EQ.FOCO) GO TO 21 
IF fACFAU«r,6> .GE.DET) GO TO ?1 
0rT = ACFAUa,6» 
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105 


IOE=I 

21 COMTINUF 

22 CONTINUE 

C IF NO OTHER FAULT, GO TO 23. ELSE DISCONNECT ONE COMPUTER. 

IF aOE.EQ.OI GO TO 23 

NOON«FOCO»=0 

NHORK=NHORK“l 

TIHE=OET 

N£XT=1 

IF INH0RK.EQ.41 NQUA=NQIIAT1 
IF {NHORK.EQ.3) NTRI=NTRIT1 
IF INH0RK.EQ.21 MEXT=4 
RETURN 

23 CONTINUE ' 

IGOOO=l 

C IS THE REPAIRING COMPUTER GOOD. 

DO 75 J=1,I01M 

IF IACFAU<J,3) .EQ.O.) GO TO 76 
JJ=J 

IF aNT(ACFAU{J,4t> .EO. IREPt IGOOD=D 

75 CONTINUE 

76 CONTINUE 
TIMS=TIMEtRECOV 

C ERASING AND UPDATING OF DETECTION TIME 
IEFFA=0 

00 80 J=1,IDIH 
ACF3=ACFAUIJ,3) 

IF IACF3.EQ.0.) GO TO 81 
C IF THE FAULT IS NOT DETECTED, GO TO 90 

IF (IACFAU(J,6I .GT.TIHE-OELAY) .0R.(ACFAU(J,4I.NE.F0C0II GO TO 90 
C IF THE FAULT LASTS TOO LONG, GO TO 101 
IF (ACFAUfJ,2» .GT.TIHEI GO TO 101 
IFTRANFCO .0) .GE.RACPU) GOTO 101 
IF fACFAUtJ,5) ,NE.O.) GO TO 101 
IF (IGOOD.EO.O) GO TO 50 
1DELET=1 

IF (ISYNC.EQ.U GO TO 1111 

C ASYNCHRONOUS CASE. DO NOT COUNT A SUCCESSFUL RECOVERY, IF ALL PSEUDO- 
C FAULTS HAVE NOT YET BEEN ERASED. 

DO 1110 1=1, JJ 

IF (ACFAUCI,3) .EQ.O.I GO TO 1110 
IF CI.EO.Ji GO TO 1110 

IF (ACFAU(I,2».NE.ACFAUCJ,2n GO TO 1110 
IOELET=IDELET-l i 

NTR3=NTR3-1 
GO TO 1111 

1110 CONTINUF 

1111 CONTINUE 
IFFFA=1 
ACFAU( J,3»=0. 

NTR3 = MTR3 4 1 0L29APR4 

GOTO 80 


110 


c 


50 CONTINUE 

ACFAmj,6»=ACFAU< J,6> 4TC 



115 


120 


125 


130 


SUBROUTINE STATE2 CDC 6600 FTN V3.0-P355 0PT=1 04/00/76 17.50»49. 

I 

GO TO 80 
go CONTINUE 

C UPDftTTNG FOR THE NON DETECTED FAULTS 

ACFAU( J,6l=AHAXHTIMF-DELAYTTC*«l.tAINT( (DELAY*RECOV) /TO) 

1 ,ACFAU(J,6I) 

GO TO 80 
101 CONTINUE 

CALL DETTIHJDETFCfTTHS, ACFAU «J,3)> 

ACFAUf J,6>=DETEC 
80 CONTINUE 
01 CONTINUE 

IF (IEFFA.EQ.il CALL GATHER 

NEXT=1 

TIM£=TIMS 

LAST(FOCO>=TIHE 

CALL MISCYC(TIHE«RECOV, TIME, NEXT) 

IF (NEXT.NE.5) RETURN 

1CATAS=ICATASH 

REAS0N=6 

IF (lOELET.EQ.OI RETURN 

NTR3=NTR3-1 

HISTAK=MISTAK+1 

MISTKI (NHORK-2 I =H ISTKI (NHORK-2 1+1 
END 
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CONiOH/COHl/tDIH, UFUf M03.5> .PIR.EXrfH, I OE T F C , Rt COW, 0£ L AT , T IME 

COrnOM/COM3/ACFAunO,bl , E NOH IS .HEHSI 7 , T C 

COHhOM/COI17/Rf A SOM 

COMMON /COM9/COPLASC5 I .RMC.OURHC 

COMHON/COn/MtSTAK 

coMtioN/ro 1 5/miR Rf s 

C0«M0H/C015/M00H<5> .MHORK 

COMMOH/COAl/ICAIAS, 13 

C0*l«0H/C0'.7/mSTKI I )t 

COMMOM/PEPM/IAST 151 , HI Ml HI ,PSUC 
C0HH0M/PMILM3/HIR3,HIP7,MIR1 ,MTHRl 
IHTECIP PTR.ExrfM, REASON 
REAL LAsr.NIHINT 


10 COHTIHUE 

IF l?AIM.CIPTR,l».CI,TIMe*OURRFSI CO TO 70 
CALI F IFAUIIM.MIX?) 

IF1NCXT.E Q.5I RETURN 
SOTO 10 
73 CONTINUE 
IRA*0 

00 50 J-t.IOIH 

IF lACFAUU, 3) . CO.e. ) GO TO M 

IF 1 1 ACFAiMJ,7) . Lt ,riHE) .OR. H ACFAU t J,?l ,L T . T I ME »OURRC S I .AHO. 

1 I ACFAUIJ.St .EQ.O.m ACFAUIJ.3I>0. 

IF lACFAU tJ. 31 .0. 1 CO TO 50 
IRAiIR A*1 
MTR3-MTR3*! 

59 CONTINUE 
51 CONTINUE 

IF ITRA.Cr.il CALL CAIHFR 

TIME- I IHE *DURRES 

00 too J'l.IOIH 

ACFT-ACFAUIJ,U 

If IACF3.EO.0.I CO TO 110 

call 0£TT1HIACFAUIJ,5I ,TlHf ,ACF?> 

ICO CONTINUE 
110 MfXT’l 

00 I7C I»l,5 
COPlASIU -TIHE 
LA5T1II-T IME 
170 COMIIMUF 

call M ISCTCITIHE-OURRES, TIME .HEXTI 

If INfXT.NE.5l ^TURN 

ICATAS«ICATA$» 1 

REASON -.5 

NIRl-HTR.T-IRA 

mistak-nisiaraioa 

MISTKI lfWORK-71 •NISTKIINN0RF-?I*I'’A 
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10 


15 


20 


25 


30 


35 


AO 


A5 


50 


55 


SU0ROUTIME STATFA<NEKT1 

C THIS VERSIOHI MARCH 1576 

C SIMULATION OF DUPLEX 
C 

COMMON/COMl/IOI M, TABLE C300,4>,PTR,EXTEN,IDETEC,RECOV, DELAY, TIME 

COHMON/COM3/ACFAUtlO,61 ,ENOHIS,MEHSIZ,TC 

C0MM0N/C0M7/REA SON 

COHMON/COli/HISTAK 

COHHON/C015/NOON<5) ,NHORK 

C0HH0N/C03l/RATIMT,ISYNC 

C0HM0N/C038/i0CU(5> , NONOCO ,NHO10 

COMMON /COA2/MISTKU31 

INTEGER PTP.EXTEN 

INTEGER REASON 

«¥¥«¥¥«¥« ¥«¥¥«¥¥¥» **»*•»**•* 9»¥««**¥V ***•»*•»• ***«««*» 

C SUPPRESSION OF THE FAULTS IN THE SMITCHED-OFF COMPUTER 
IRA = 0 

DO 10 J=l,IOIM 

IF IACFAU(J,3> ,£Q.0. J GO TO 20 
IF (NOONIACFAUI J,AII .EQ.l) GO TO 10 
C TEST IF A TRANSIENT IS MISTAKEN AS A PERMANENT 
ACFAU< Ji3)=0. 

IRA=IRA+1 

IFIfACFAU(J,2) .GE.ENDMISI.OR.<IRA,NEolH GOTO 10 
HISTAK=HISTAK*1 
MISTKI (1» =MISTKim Fl 
ID CONTINUE 
20 CONTINUE 

IF (IRA.GE.IT CALL GATHER 
C IF THERE IS A LURKING FAULT GO TO 30. 

IF (ACFAUtl,3) .NE.O.) GO TO 30 
C IF THFRE IS NO MORE FAULT, RETURN 
70 CONTINUE 

TIHE=TABLEtPTR, 1» 

IF (TIHE.LT.ENDMISt GO TO AO 
50 CONTINUE 
NEXT=6 
RETURN 
AO CONTINUE 

CALL FIFAU(IM,NrXT,ISYNC) 

IFINEXT.EQ.5I RETURN 
IFIIN.EO.OJ GOTO 70 
D DETERMINE DETECTION TIME 
30 CONTINUE 

C THE FAMOUS ONE TRILLION APPROACH AGAIN, SPORTSFANS ... SP29APRA 

OET=1000008000000, SP29APRA 

DO 90 I=1,IDTM 

IF <ACFAU(I,3>.EQ.0,> GO TO 100 
IF (ACFAU(I,6» .GE.OET ) GO TO 90 ■ 

oet=ac'fau n,6> 

IOETEC=:I 
90 CONTINUE 
100 CONTINUE 
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C IF THERE IS NO FAULT BEFORE OFT, START ROLLBACK. 
TIHE=nHINl<TABLEIPTR,ll ,DFT» 

IF (TIHE.GE.EHDHTSJ 60 TO 50 
IF fTIHE.NE.OET) GO TO 110 
60 NEXT=8 

RETURN 

110 CONTINUE 

CALL FIFAUlINfNEXTtlSYNOJ 
TFINEXT.EQ.5) RETURN 
65 IF(IN.EQ.D) GOTO 100 

GOTO 30 
END 
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ID 
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ID 
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ID 
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MEHSIZ 





62 

TC 

ID 
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MISTAK 
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RATINT 

ID 

1 

ISYNC 

(1) 



(1) 


C030 

7 


0 

lOCU 

I5» 

5 

NONDED 

ID 

6 

NHOIO 


C042 

3 


0 

MISTKT 

(3) 








STATISTICS 

PROGRAM LENGIH 1428 9B 

COMMON LENGIH 2412B 1290 


PAGE 4 



SUOROUTINF STATF7 
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SUBROUTINF STATe/lNEXn 

THIS VERSION* MARCH 1976 

THIS IS A HEMORT COPY. THE COMPUTFR IN CHARGE OF THE REPAIR IS IREP. 

IF A HEH FAULT HIT THE SYSTEM BEFORE THE ENO OF THE MEMORY COPY, THE 
FIRST FAULT IS COMSIOEREO AS A PERMANENT. 

COHrtON/COH17iniH, TABLE ( 300 , 41 , PTR, EXTEN , lOETEC, RECOV, DELAY, TIME 
COMHON/COM3/ACFAIMIO,6I,ENDMIS,HEHSI2,TC 
COMMON/COM7/REASON 
COHHON/COM8/FOCO 
COMMON 700M9/C0PLAS(5>,RHC,DURHC 
C0HM0N/C0117MISTAK 
COMHON/CO15/N00N«5) ,NHORK 
0OMMON/CO17/NTRI,NQUA 
C0MM0N/C018/IREP 
C0MM0N/C028/H00SIM,NSPB 
COMMON /CO 29/NMC 
COMMON/CO 31/RAT IHT,1SYNC 
C0HM0N/C041/ICATAS,I3 
C0HH0N/C042/HISTKI13I 
C0HH0N/C045/PSHC 
COMMON /PERM/LAST(Sl ,MININT,PSUC 
COMMON /PHILH3/NTR3,NTR2,NTR1,NTNR1 
INTEGER EXTEN, PTR, REASON 
REAL LAST.MININT 

(.VWVVV4VVV »♦***»**• «««««»«» 

c 

10ELET=0 

30 C IF THE FAULT IS NOT RECURRENT, GO TO 10. 

IF (TIME-COPLAS (FOCOI .GT.RMCJ GO TO 10 
NMC=NHC-1 
NOON(F0CO»=0 
IF (NSPB.NE.OI GO TO 24 
35 NHORK=NHORK-l 

NEXT=t 

IF (NHORK.EQoAT NQUA=NQUA*1 
IF (HH0PK.EQ.3I MTRI=NTRI»1 
IF (NM0 RK.lt. 3) HEXT=4 
40 RETURN 

24 CONTINUE 
NEXT=12 
RETURN 
10 CONTINUE 

45 C IF THERE IS NO OTHER FAULT, GO TO 20 

IF (TA8LEIPTR,l»,GT.TIHf*DURMC) GO TO 20 
CALL FIFAU(IN,NEXT,1I 
IF(NEXT.EQ.5) RETURN 
GOTO 10 

50 20 CONTINUE 

C A FAULT IN ANOTHE R COMPUTER PREEMPTS THE FIRST ONE WHICH IS SEEN AS A 
C PERMANENT 
IDE=0 

OFT=TIMEFDURMC 
55 DO 21 I=l,IOIH 


C 

C 

C 

5 C 

C 
C 


ID 


15 


20 


25 


PAGE 1 
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60 


65 


70 


75 


00 


05 


90 


95 


100 


105 


110 


IF <ACFAU(I,3) .EQ.O.) GO TO 22 
IF (ACFAU(I,4» .EQ.FOCOI GO TO 21 
IF <ACFAU(I,6» .GE.DETI GO TO 21 
0ET=ACFAIMI,6» 

10E=I 

21 COMTINUF 

22 CONTINUE 

IF flOE.EO.Ol GO TO 23 

NOONCFOCO)=0 

NHORK=NHORK-1 

TIME=OET 

NCXT=1 

IF (NHORK.EQ.ti) NQUA=NQUA4^t 
IF «NH0RK.EQ.3» MTRI=HTRIH 
IF (NH0RK.EQ.2I NEXT=4 
RETURN 

23 CONTINUF 
MUL=0 

DO 40 I-lflOIH 

IF (ACFAU(It3I.EQ.O.) GO TO 50 
JJ=I 

IF <1NT«ACFAU«I,4H .E0.1REP1 HUL=1 
40 CONTINUE 
50 CONTINUE 

C ERASING OF THE FAULT 
IEFFA=0 

DO 60 J3=1«I0IH 

IF (ACFAU(Jt3) .EQ.O.I CO TO 61 

C ERASED FAULTS t MEMORY-FAULT DYING BEFORE BEGINNING OF THE CORRECTION 
C OTHER FAULT lEXTENTOI DYING BEFORE END OF CORRECTION 

IF C(ACFAUtJ,2l .LT.TIHEI .OR. IIACFAUI J,2» .LT«TIHE*DURHC> .AND. 

1 ( ACFAU(J,5t .EQ.O.n * GO TO 70 

GO TO 60 
90 CONTINUE 

ACFAU( Jf5) = ACFAlllJ»5t »ACFAU(HUL,5} 

IF (ACFAU(MULt3>.EQ.3.) ACFAUUt3)33. 

GO TO 60 
70 CONTINUE 

IF IRANFIO.l .GT.PSHC) GO TO 61 
IF (HUL.NE.Ol 60 TO 90 
IDELET-1 

IF (ISYNC.EQ.U GO TO till 
DO 1110 I-1«JJ 

IF tACFAUtl, 3) .EQ.O.I GO TO 1110 
IF tI.EO.JI GO TO 1110 

IF CACFAUa»2I .N'E.ACFAU<J»2H GOTO 1110 

ioelet=i6elet-i 

NTR3=NTR3-1 
GO TO 1111 

1110 CONTINUE 

1111 CONTINUE 
IEFFA=1 

ACFAU(Jt3) =0. 

NTR3 = NTR3 + 1 
60 CONTINUF 


0L29APR4 


0L29APR4 


0L29APR4 

0L29APR4 



115 


120 


125 


130 


SUBROUTINE STATF7 COC 8600 FTN V3.0-P355 OPT = l 0<»/0e/76 17.5D.«i9. 

61 CONTINUE 

IF (IFFFA.EQ.IJ CALL GATHER 
C UPDATING DETECTION TIME 
TIME=TIME*OURHC 
DO 100 J=1»IDIH 

IF <ACFAUCJt3> .EQ.O, > GO TO 110 
CALL DETTIM<DETEC»TIME,ACFAUU,31) 

ACFAUT J»6) = OET,EC 
100 CONTINUE 
110 NEXT=1 

COPLASTEOCOJsTIME 

LAST(FOCOI=TIME 

CALL HISCYCaiHE-RECOVt TIME, NEXT) 

IF TNEXT.NE.5) return 

ICATAS=ICATASF1 

REAS0N=6 

IF aOELET.EQ.O) RETURN 

NTR3=NTR3-1 

MISTAK=HISTAK+1 

MISTKI «NM0RR-2) =MISTKI tNMORK-2J *1 
END 
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SUBROUTINE STATFOINEXT) 

G THIS VERSION! MARCH 1976 

C THIS IS A ROLLBACK 
C 

C IREPFT INDICATES A SUCCESSFUL ROLLBACK IF 0 . OL29APR4 

C WHEN ROLLBACK IS SUCCESSFUL HE HAVE TO DETERMINE HHICH C0HPUTER0LZ9APR4 

C IS STILL GOOD, THIS IS DONF IN STATES 0L29APR4 

COHHON/COM1/IDIH,TA()LFI3 00,4) , PTR, EXTEN, lOETEC, RECOtf, DELAY, TIME 
COHMON/COH3/ACFAUUO,6),ENOMIS,MEMSIZ,TC 
C0HM0N7C0H7/REAS0N 
COMMON/CO 107HAXRLB,DURRA 
COMMON/C016/NOIAG,NUNOI 
COHHON/CO 25/END 
COMMON/C031/RAT1NT,ISYNC 
COMMON /CO32/T0AO 
COMMON /CO50/1HOOA 

COMHON/COVER/ITLKP,IFHE SP11APR4 

C0HH0N/PHILH3/MTR3,NTR2,NTR1,NTNR1 

COHMON/PBACK/R8CPU 

INTEGER EXTENtPTR , reason 

,F»**«**VV* *«•«««»«» ««««««** 

C 

C SET DETECTION TIME OF FAULT CAUSING THIS ROLLBACK SP09APR4 

IDELET=0 

EN0=ACFAua0ETEC,2> 

IM0BA=ACFAUI10ETEC,3» 

IBAD=ACFAU(IOETEC,4) 

TIME=ACFAU(IDETEC,6> 

nURRB=DURRA 

IF (ISYNC.EQ.OI DORRni=DURRA*2.+RANF<0.) 

TIHI=TIHE 

LRB=0 

IFIMAXRLB.GT.Ol GOTO 10 
NEXT=9 
RETURN 
10 CONTINUE 
LR8=LRB+1 
40 CONTINUE 

C SEE IF NEXT FAULT OCCURANCF IS AFTER THE TIME IT HILL BE AFTER SP12APR4 

C THE ROLLBACK IS COMPLETE SP09APR4 

C 

IF ITABLEtPTR, n.GT.TIHEtnURRB) GO TO 20 
C 

C SEE IF HE ARE POINTING TO A FAULT IN A LIVE COMPUTER P09APR4 

CALL FIFAUtIN,NEXT,ll 
IFINEXT.E0.5) RETURN 
GO TO 40 
20 CONTINUF 

C NICE CLEAN BREAK BETWEEN FAULTS SP09APR4 

IREPET=0 

TF (ISYNC.EQ.l) GO TO 32 
DO 30 J=l,IOIH 

IF (ACFAU<J,3) ,EQ.O.) GO TO 3? 

JJ=J 
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PACE 
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60 


65 
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80 


85 
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95 


100 


105 


110 


30 CONTINUE 
32 CONTINUE 
IEFEA=0 

DO 80 J=l,IOIM 

ACFT=ACFAU(J,3I 

IF (ACF3.ECt.0.l GO TO 81 

IF tACFAUU,6).GT.TlHEI 60.10 90 

C SEE -IF THERE IS AH ACTIVE FAULT THAT OISAPPE|lRS AFTER THE 

C DETECTION OF THIS FAULT UHAT HAS BEEN OETECTEOl 

IF (AGFAU(J,2) .GTtTIHE) GO TO 100 

C SEE IF THERE IS AN EXTENT ASSOCIATED HITH THE FAULT IHEANS 

C THE ROLLBACK MON T HFLP FIX IT) 

IF tACFAUIJ,5) .NE.O.) GO TO 100 
IF(RANF«0.0) .GE.RBCPU) GOTO 100 
IF (ISYNC.EO,!) GO TO 1111 
TDELET=1’ 

DO lllQ 1=1, JJ 

IF (ACFAU(I,3».EO.O.) GO TO 1110 
IF (I.EQ.J) GO TO 1110 

IF «ACFAU(l,2>.NE,ACFAUfJ,2n GO TO 1110 

IDELET=IOELET-l 

NTR2=NTR2-l 

GO TO 1111 

1110 CONTINUE 

1111 CONTINUE 
IEFFA=1 
ACFAU( J,3)=0. 

NTR2 = NTP2 + 1 
GO TO 80 

C 

90 CONTINUF 

C A ROLLBACK HAY DELAY THE DETECTION OF A LURKING FAULT 
ACFAU( J.6)=ACFAU( J,6)+DURRB 
60 TO 80 
C 

100 CONTINUE 
C 

IPEPET=1 

80 CONTINUE 

81 CONTINUF 
TIHE=TIHEtOURRB 

IF (lEFFA.EQ.l) CALL GATHER 
C 
c 

C HOT DAMN — HE RE STILL IN BUSINESS, THE ROLLBACK HAS 

C SUCCESSFUL 

NEXT = l4 

CALL HISCYCUIHI, TIME, NEXT) 

IF nREPET.EQ.l) CO TO 160 
IF TNEXT.NE.5J RETURN * 

GO TO 161 
C 

160 CONTINUE 
C 

C SEE IF HE TRY THE ROLLBACK AGAIN 


SP09APR4 

SP09APR4 

SP09APR4 

SP09APR4 


0L29APR4 


SP09APR4 

SP09APR4 

SP09APR4 


SP09APR4 
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IFCNEXT.EQ.5J GO TO 161 
IF <LRB,LT,HAXRLBI GO TO 10 
G 

NEXT = 9 

Its RETURN 

161 CONTINUE 

N0IAG=NDIA6+1 

HUN01=NUNOItl 

IF flOELET.EQ.U NTR2=NTRE-1 
120 IF lENO.LT.ENDHISJ ITLKP=ITLKP*1 

REAS0N=6 
END 
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111 

1 

ISYNC 

(11 




C032 

1 

0 

ibao 
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111 




PHILM3 
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SUBROUTINE STATE9 INfTXT* SP09APR4 

C THIS VERSIONI MARCH 1976 

C THIS IS THE FAMOUS OIAGOMISTIC AND RECOVERV STATE. 

C THE ONLY HAY TO ARRIVE AT THIS STATE IS TO HAVE HAD THE DUPLEX 

C MODE RECOVERY TECHNIQUE (NAMELY ROLLBACK! MOT SUCCESSFUL ENOUGH 

C (THIS HINGES ON THE PROBABILITY OF SUCCESS OF A ROLLBACK 

C 

Q*««*V«**«* «**.**«V4;« IFV4FVV**** *'»«***»*«» »*•**»■•*• «**««¥«» 


COHMON/COM1/IOIH,TABLE(300»4) ,PTR,EXTEN» lOETEC.RECOVf DELAY, TIME 

COMMON/COH3/ACFAU(10,6),ENDHIS,MEMS1Z,TC 

C0HM0N/C0H7/REA SON 

COMMON/CO 15/N00NtS» , NHORK 

COMMON/CO 16/NOI AG tNUNOI 

COMHOM/C025/ENO 

C0HHON/CO26/TH2 

COHHON/C032/inAO 

C0HMON/CO50/1HO0A 

COMMON/COVER/ITLKP.IFHE 

C0HM0N/D70IA6N 

COMMON/OETE7P,DETHAX,PDH 

C0MM0N/FA1L02/F0C02 

INTEGER PTR,EXTEN 

INTEGER REASON 


SP29APR4 

SP08APR4 


SP29APR4 

SP29APR4 

SP10APR4 


c 

C A TRANSIENT FAULT CANNOT BE DIAGNOSED IF IT HAS DISAPPEARED 
PDET=POH 

IFIIMOBA.EQ.1) PDET=P 
68 U=RANF(0.I 

IF (U.LT.PDET! go to 169 
IF (END.lt. TIME) go TO 110 
IF (U.GT.DETHAXI GO TO 101 
U=DIAGM*Z.*(U-POETI/tOETHAX-POET) 

171 CONTINUF 

GALL M1SCYC(T1ME,TIHETU+TM2,NEXT) 

TIHE=TIME¥U*TH2 
IF (NEXT.NE.5) GO TO 100 
101 CONTINUE 
NEXT=5 
REASON=4 

C TOO BAD ABOUT THAT — IT S A SYSTEM FAILURE 

NUMDI=NUN01*1 

IF (END.LT.ENDMIS) ITLKP=ITLKP*1 
RETURN 
110 CONTINUE 

IF (RAKF(0.).GT.0.5> GO TO 101 
U=2.*,DTAGN 
GO TO 171 
C 

100 CONTINUE 

C DETERMINE THE ONLY GOOD COMPUTER 

DO 150 J=l,5 

IF ((NODN(J).EQ.D). OR.IIOAD.FCt. JH GO TO 150 
FOC02= J 
GO TO 200 
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IF(TA81E1PTR,1» .GE.TlHEt GO TO 210 
CALL F1FAUCIN,NEXT,1) 

IF(NEXT.E0.51 RETURN 
IFdN.EO.n GOTO lOl 
65 GOTO 201 

210 COMTINUE 


70 


HELL, YOU RE NOT A WHOLE LOT BETTER OFF. BUT AT LEAST A S1MPLEXSP08APR4 
C COMPUTER SYSTEM MIGHT KEEP THE PLANE IN THE AIR. SP0BAPR«t 

NEXT = 10 SP08APR<* 

RETURN SPOBAPRJi 

169 CONTINUE 

0 = 0 . 

GO TO 171 
END 
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SUBROUTINE STftTEMNEXTJ SP08APR4 

THIS VERSTONI MARCH 1976 

THIS IS THE PRECARIOUSLY POSTURED SIMPLEX COMPUTE^ SYSTEM STATESP08APR4 
IH THIS STATE YOU VE REALLY GOT YOURSELF OUT ON A LIMB BECAUSE SP08APR4 


THERE S ABSOLUTELY NO REDUNDANCY - YOU RE ZINGING IN THERE ON SP08APR4 
ONE AND ONLY ONE COMPUTER SP08APR4 

«««««**»* *«**»*4F»*« SP08APR4 

COHHON7COH1/IOIM,TABLE(300,4» ,PTP,EXTENt lOETEC.RECOV, DELAY, TIME 

COMHON/COH3/ACFAUllO,rO,ENOMI':,HEHSIZ,TC * SP09APR4 

C OHMON /C 0 H7/RE A SOM 

C0HH0N/C031/RATINT,ISYNC 

COHHON/CO60/LSTELT 

COHMOM/COtfER/ITLKP,IFHE SP29APR4 

COMMON/FA IL02/FOC02 SP0BAPR4 

integer ptr.exten, reason 


**«******« »***«* ****««**»*),» »»»****«**«<,**««»»«»*»,,* 


SUPPRESSION OF THE FAULTS IN THE SWITCHED OFF COMPUTER 
IRA=0 

DO 10 J=l,IOIM 

IF IACFAU(J,3J .EO.O.IGO TO 20 
IF <ACFAUIJ,4).E0.F0C02» GO TO 10 
ACFAU(J,3|-0. 

IRA=IRA+1 

IF nACFAUU,2t .LT.ENDHTSJ .AND.TlRA.EQ.in ITLKP=ITLKP*1 
10 CONTINUE 
20 CONTINUE 

IF tlRA.GE.U call GATHER 
IF T.HERE IS A LURKING FAULT GO TO 30 
IF <ACFAUT1,3).NE.O.IGO TO 30 
IF THERE IS NO MORE FAULT, RETURN 
70 CONTINUE 

TIHE=TABLETPTR, 1) 

IF TTIME.LT.ENDMISJ GO TO 40 
NCXT=6 
RETURN 
40 CONTINUE 

CALL FIFAUIIN,MEXT,1» 

IFTNEXT.EQ.STRETURN 
IFflH.EQ.OI GOTO 70 

IN STATED, WHEN AGFAU(J,6> IS -1, IT IS DETERMINED IF THE FAULT IS 
DETECTED OR NOT. IF HE FOLLOWED EXACTLY THE STATE DIAGRAH, IT SHOULD 
BE DETERMINED HERE. 

ACFAU(LSTFLT,6) =~1 
PTR=PTR+1 
NEXT=11 
RETURN 
30 CONTINUE 

TIMI=ACFAUI1,1> 

DO 1 J=2,TD1M 

IF (ACFAU tJ,3J . FO.O. 1 CO TO 2 
TIMI=AMINl«TIMI,ACFAUtJ,2> I 

1 CONTINUE 

2 CONIINUF 
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SUBROUTINE STATFB COC 6600 FTN U3.0-P355 DPT = 1 0<*/08/76 17.50.49. 

SUBROUTINE STATEBCNEXT) 

C THIS VERSION* HftRCH 1976 

C THIS CORRESPONDS TO DETECTION AND ROLLBACK IN SIMPLEX 
C 

g (J *****»♦***********♦**»♦*»**»**•»**•******»*•****** »**************»***'t 

COMHON/COHt/IOIH, TABLE 130 0, 4> ,PTR,EXTEN, IDETEC ,RECOV,OELAY,TIME 

COHMON/CO«3/ACFAUUO,6»,ENDHIS»HEMSIZ,TC 

COMMON /COH7/REA SON 

COMMON/COIO/M, DURRA 

10 C0HH0N/C031/RATINT,ISYMC 

COMMON /C060/LSTFLT 
COMMON/DETE/POET,OETMAX,PDM 
COMMON/FA 1LO2/FOC02 
C0MM0N/PH1LM3/MTR3,NTR2,NTR1,NTNR1 
15 INTEGER PTR.EXTEN 

INTEGER REASON 

g »»«*«*«***«*«*«««»»«*«»•««•««•*• 

C 

TIMI=TIHE 

20 IF TISYNC.EQ.OI GO TO 1 

DURRB=TIME-AINTITIHE/TC» *TC 
GO TO 40 
1 CONTINUE 

OURRB=DURRA*2.*RAMFtO.> 

25 40 CONTINUE ' 

IF UABLECPTRtlJ.GT.TIME+OURRBt GO TO 20 
CALL FIFAUIIN,MEXT,1» 

IF(NEXT.EQ.5I RETURN 
lFIIN.EQ.il ACFAU<LSTFLT,6I=-1 
30 GO TO 40 

20 CONTINUE 
IREPET=0 
IEFFA=0 

DO 80 J=l,IOIM 

35 ACF3=ACFAUtJ,3t 

IF 1ACF3.EQ.0.1 GO TO 81 
IF {ACFAU(J,6).EQ.O.)GO TO 82 
C TEST ON THE DETECTION OF THIS FAULT 
U=RANF10.) 

40 IFn(ACF3.EQ.3.>.AND.TU.LT.PDMH.OR. 

1 ICACF3.Eq.l.).AND.(U.LT.P0ET)ll GO TO 83 
IF <ACFAUM,2I .LT.ENDMISl NT NR1=NTNR1 tl 
NEXr=5 
REASON=5 

45 RETURN 

83 CONTINUE 

ACFAU(J,6)=0. 

82 CONTINUE 

IF (ACFAUU,2» .GT.TIHE) GO TO 100 
50 IF <ACFA0tJ,5) .NE.O.) GO TO 100 

NT.R1=NTR1 + 1 
IEFFA=l 
ACFAUC J,3)=0. 

GO TO 80 

55 100 CONTINUE 
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80 CONTIMUF 
01 CONTINUE 

TIME=TIHETDORRB 

IF tlEFFA.EQiU CALL GATHER 

REASON=5 

CALL MISCYCCTIHI,TIHE,NEXT» , 

IF (NEXT.EQ.SJ GO TO 10 
IF tIREPET.EQ.l) GO TO 40 
NEXT=10 
RETURN 
10 CONTINUE 

00 50 1=1,1DIH 

IF IACFAU«t3> .EQ.O.l RETURN 
IF IACFAUtI,2) .LT,EN0HIS>MTNR1=NTNR1»1 
60 CONTINUE 
END 
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(1) 

FAIL02 

1 

0 

F0C02 

(1) 







PHILH3 

4 

0 

NTP3 

(1) 

1 

NTR2 

(1) 

2 

NTRl 

(1) 
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NTNRl 

(t> 
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5 


10 


15 


ao 


25 


30 


35 


«t0 


<♦5 


50 


55 


SUBROUTINE STATEC (HEXT» 

C THIS VERSION! MARCH 1976 

C INTRODUCTION OF A SPARE 
C 

C V«*»»*«F*«*V**» ***»»«»* «.**«*« •«**«•*«**«*«»«**»•»*««*«*»*** 

COMMON/COMl/IorH,TABLE(300«AI»PrR«EXTEN,IOETECfRECOV*OEUYtTIHH 

COMHON/COM37 ACF AU tlO tB) ♦ENOMIStMEHSIZfTC 

COMMON /C 0 M7/ RE A SO N 

COHHON/C015/NOON(5) >NHORK 

C0HH0N/C018/IREP 

C0MH0N/CQ28/H00SIM,NSPB 

C0MM0N7C033/RMUPC5) 

C0MM0N/C034/ISPAREe5) 

COHM0M/CO35/CONDIT 
C0MH0N/C036/RMISTM 
C0MM0N7C037/ RMU 
COHMON/0£T£/POET,OET«AX 
INTEGER PTRtREASONiEXTEN 

Q »**«««»**«««««•*««««»«»***««««*««»««*««»«* »**«*»«**««!»«««» **«»«*««««»« 

C 

C determination OF THE SPARE NUMBER 
. DO 1 1=1*5 

IF aSPAREfll.EQ.Ot GO TO 1 
II=ISPARE(1> 

NOOMIlI)=t 
GO TO 2 

1 CONTINUE 

C I IS THE SPARE NUMBER 

2 CONTINUE 
1=11 

10 CONTINUE 

IF «TA8Le(PTR,l).CT.TIHE+C0NDin GO TO 20 
CALL fifau«n;next,ii 
1FCHEXT.EQ.5) RETURN ’ 

GOTO 10 

20 CONTINUE 

C A FAULT IN ANOTHER COMPUTER INTERRUPTS THE SHITCHING OF THE SPARE 
I0E=0 \ 

DET=TIHE»COMOrr 
DO 21 J=1,ID1H 

IF CACFAU(J*3> .EQ.O.J GO TO 22 
IUH=ACFAU(J*(|) 

IFKIUN.EQ.n.OR. (NOONCIUNI.EO.On GOTO 21 
, IF (ACFAU<J,61 .GE.OETl GO TO 21 
OFT=ACFAUU,6) 
ioe=J 

21 CONTINUF 

22 CONTINUE 

IF (lOE.EO.OI GO TO 23 

NOON(I1=0 

NMORK=NWORK-l 

TIHE=OET 

NEXT=1 

IF <NHORK.EQ.2) NFXT=4 
RETURN 
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23 CONTINUE 
HUL = 0 

DO 40 J=l,IOIH 

IF IACFAU|J,3).EO.O.) GO TO 50 
IUN=ACFAUfJ,4> 

IF(NOON(IUN) .EQ.OI GOTO 40 
IFIIUN.EQ.IREPI MUL=I 
40 CONTINUE 
50 CONTINUE 

C DETERHINE if the spare is GOOD 

IF(RANF»0.I.LT.FXPt-RHU*TTIME-ENOHIS-RMISTHI/3600O00.l) GO TO 51 
C THE SPARE IS BAO. ARE HE AHARE OF IT 
IF IRANFIO.J .GT.OETHAXJGO TO 52 
D DO NOT INJECT THIS SPARE 
ISPARE (11 =0 
NSP8=NSPS-1 
NOONm = Q 
TIHE=TIHE tCONBIT 
' IF (NSPD.GT.O) GO TO 53 
NHORK=NHORK-l 
NEXT=1 

IF (NM0RK.EQ.2J KEXT=4 
IF (NHORK.EQ.ll NEXT=10 
RETURN 

53 CONTINUE 
NEXT=1Z 

return 

C THE SPARE IS BAQ AND THIS IS NOT KNOHNo HE CREATE A NEH FAULT 
52 CONTINUE 
PTR=PTR-1 

TABLE (PTR,H=TIHE*C0NDIT 

Vableiptr,2»=io.»endhis 

TABLE(PTR,3»=1. 

IF IRANF(0.> .GT.RHUP(H/RHU) T ABLE (PTR, 3 1 =3. 

TABLE«PTR,4I=I 
61 CONTINUE 

C A FAULT IN IREP GIVES A FAULT IN THE SPARE 
IF (HUL.EQ.DI GO TO 54 
PIR=PTR-1 

TA8LE(PTR»l»=TIHE+CONDir 
TABLE (PTR ,Zl =TlHEtCON0IT 
tTABLE(PTR,3>=3. 

TA0LE(PTR,4»=I 

54 CONTINUE 
NEXT=1 

IF (NHORK.Ea.ZS HEXT=8 
IF (NHORK.EQ.U NEXT=10 
ISPARE in =0 ' 
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REAL 
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COM3 
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REAL 


CQ35 

REFS 

14 

32 

39 

73 

86 
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96 
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DELAY 

REAL 


COHl 

REFS 

6 
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DET 

REAL 



REFS 

44 

52 

DEFINED 

39 

45 
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OETMAX 

PEAL 


DETE 

REFS 

17 

66 






7U 

ENDMIS 

REAL 


COM3 

REFS 

7 

66 

87 
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EXTEN 

INTEGER 


COHl 

REFS 

6 

18 






2A7 

I 

INTEGER 



REFS 

23 

24 

43 

50 

62 

70 

72 






90 

98 

103 

DEFINED 

22 

30 



252 

IDE 

INTEGER 



REFS 

49 

DEFINED 

38 

46 




2263 

IDETEC 

INTEGER 


COHl 

REFS 

6 







0 

IDIH 

INTEGER 


COHl 

REFS 

6 

40 

58 





250 

II 

INTEGER 



REFS 

25 

30 

DEFINED 

24 




251 

IN 

* INTEGER 



REFS 

33 







0 

IREP 

INTEGER 


C016 

REFS 

ID 

'62 






0 

ISPARE 

INTEGER 

ARRAY 

C034 

REFS 

13 

23 

24 ' 

DEFINED 

70 

103 


255 

lUN 

INTEGER 



REFS 

2»43 

61 ' 

62 

DEFINED 

42 

60 


254 

J 

INTEGER 


~ 

REFS 

41 

42 

44 

45 

46 

59 

60 






DEFINED 

40 

56 






75 

MEMSIZ 

INTEGER 


COM3 

REFS 

7 







0 

MOQSIH 

INTEGER 

• 

C028 

REFS 

11 







256 

HUL 

INTEGER 



REFS 

93 

DEFINED 

67 ■ 

62 




0 

NEXT 

INTEGER 


F.P. 

REFS 

33 

34 

DEFINED 

1 

53 

54 

76 






77 

78 

81 

too 

101 

102 



0 

NOON 

INTEGER 

ARRAY 

C015 

REFS 

9 

43 

61 

DEFINED 

25 

50 

72 

1 

NSPB 

.INTEGER 


C02B 

REFS 

11 

71 

74 

DEFINED 

71 
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NHORK 

INTEGER 


C015 

REFS 

9 

51 

54 

75 

77 

78 

101 






102 

DEFINED 

51 

75 
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PDET 

REAL 

1 

DETE 

REFS 

17 
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PTR 

INTEGER 
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18 
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65 

86 
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85 
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REASON 

INTEGER 
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■ REFS 

8 
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RECOV 

REAL 
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REFS 
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RMISTM 

REAL 


C036 

REFS 

15 

66 






0 

RMU 

REAL 


C037 

RFFS 

16 

66 

89 
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RHUP 

REAL 

ARRAY 

C033 

REFS 

12 

89 
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TABLE 

REAL 

ARRAY 

COHl 

REFS 

6 

32 

DEFINED 

66 

87 

88 
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97 
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76 

TC 

REAL 


COM3 

REFS 

7 
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TIME 

REAL 
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REFS 

6 

32 

39 

66 
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96 

DEFINED 

62 

73 
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EXP 

REAL 

1 LIBRARY 66 










FIFAU 
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33 










RANF 
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61 

21 



47 

40 

43 

44 



63 

22 



48 

41 





100 

23 



56 

49 





120 

40 



63 

58 

61 




122 

50 



64 

59 





204 

51 



91 

66 





164 

52 



84 

68 





161 

53 



80 

74 





216 

54 



99 

93 
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10 

1 


! 

22 27 

7B 

INSTACK 

EXITS 



45 

21 


J 

40 47 

163 

OPT 

EXITS 



106 

40 

V 

J 

58 63 

148 

OPT 

EXITS 



COMMON 

BLOCKS 


LENGTH 

MEMBERS - 

BIAS NAHE(LENGTH) 





COMl 


1207 


0 lOIH 

11) 

1 

TABLE 

(1200) 





1202 EXTEN 

tl) 

1203 

IDETEC 

(11 





1205 OELAT 

(1) 

1206 

TIME 

(1) 


COM3 


63 


0 ACFAO 

(60) 

so 

ENBHIS 

(1) 





62 TC 

(1) 





COH7 


1 


0 REASON 

<1) 





C015 


6 


0 NOON 

(5) 

5 

NHORK 

m 


COIB 


1 


0 IREP 

(1) 





C02B 


2 


0 MODSIH 

(1) 

1 

NSPB 

(11 


C033 


5 


0 RHUP 

15) 





C034 


5 


0 ISPARE 

(5) 





C035 


t 


0 CONDI T 

(1) 





C036 


1 


0 RHISTH 

(1) 





C037 


1 


0 RHU 

tl) 





DETE 
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0 PDET 

(1) 
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OETHAX 
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SUBROOTIME TFISOILOC.IPII 

COHMON/TFRFC9/TFOI6) .TFKOJ * TF 21 10» , TF2X <10» 4» t TF3 «2I t TF3X ( 2 , 4» 
1,TF4(4»,TF4X<4.5I ,TF5I4» fTFSX»4»4) ,TF5V ( 4, 21 » TF6I4I ,IF6XI4,3) 
OIMENSIOM IP (SI 

5 ICRP=ISTFPD(6, IFQ) 

IPI2I = IGRP 

IP(11=IP1 

IP(51=0 

GOTO! 1000 ,2000. 3000, 4 0 00 > 500 Ot 60 00 I, IGRP 
10 1000 CONTINUE 

IP(3>=ISTEPB(8,TFH 
IP 141=0 
GOTO 9000 
2000 CONTINUE 

15 MOM=1STEPDI10,TF?I 

IP(3)=HDM 

1P(4I=MSTEPD(HDM,TF2X,10,4)-1 
GOTO 9000 
3000 CONTINUE 

20 H0M=ISTEPD(2,TF3I 

IP(3l=HON 

IP(4)=HSTEPD(HDH,TF3X,2,4I 
GOTO 9000 
4000 CONTINUE 

25 HDH=ISTEPDI4,TF4) 

IP(3)=MDH 

IP (41 =MSTEPD(HDH,TF4X,4,6» 

GOTO 9000 
5000 CONTINUE 

30 IDEV=ISTEP0(4,TF5) 

IP(5I=10EV 

, IP(3) =MSTFPDIIDEV,TF5X, 4,41-1 

IP(4)=HSTEPD(lDEtf,TF5Y,4,2l 
GOTO 9000 

35 6000 CONTINUE 

HD«=ISTEP0(4,TF6) 

IP(3|=HOH 

1P(4> =HSTEPn(M0M,TF6X,4,3) 

GOTO 9000 

40 9000 CONTINUE 

CALL PACK(IP,LOC) 

RETURN 

END 
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175 

lOEV 

INTEGER 





R^FS 

173 

IGRP 

INTEGER 

• 




REFS 

176 

IP 

INTEGER 

ARRAY 




REFS 




■ 




12 








32 

0 

IPl 

INTEGER. 



F.P. 


REFS 

Q 

LOC 

INTEGER 



F.P. 


REFS 

174 

MDH 

INTEGER 



, 


REFS 








38 

0 

TFO 

REAL 

ARRAY 


TFRFCg 


REFS 

6 

TFl 

REAL 

ARRAY 


TFRFCB 


REFS 

16 

TF2 

REAL 

ARRAY 


TFRFCB 


REFS 

30 

TF2X 

REAL 

ARRAY 


TFRFCB 


REFS 

100 

TF3 

REAL 

ARRAY 


TFRFCB 


REFS 

102 

TF3X 

REAt 

ARRAY 


TFRFCB 


REFS 

112 

TF4 

REAL 

ARRAY 


TFRFCB 


REFS 

116 

TF4X 

REAL 

ARRAY 


TFRFCB 


REFS 

146 

TF5 

REAL 

ARRAY 


TFRFCB 


REFS 

152 

TF5X 

REAL 

ARRAY 


TFRFCB 


REFS 

172 

TF5Y 

REAL 

ARRAY 


TFRFCB 


i?EFS 

202 

TF6 

REAL 

ARRAY 


TFRFCB 


PEFS 

206 

TF6X 

REAL 

ARRAY 


TFRFCB 


REFS 

EXTERNALS 

TYPE 

ARCS 


REFERENCES 



ISTEPD 

INTEGER 

2 


5 


11 


MSTEPD 

INTEGER 

4 
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10 
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30 

2000 


14 


9 
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3000 


19 
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45 

4000 


24 
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5000 


29 


9 
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6000 


35 


9 



72 

9000 
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146 
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TFO 
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TF2X 

(40) 






74 

TF4 

(41 





106 

TF5X ■ 
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TF6X 

(12) 


STATISTICS 







PROGRAM LENGTH 

203Q 

131 





COMMON LENGTH 

222B 

146 






COC 6600 FtN V3,0-P355 0PT=1 OA/00/76 17.50.49 


PACE 


2 


31 

32 

33 

DEFINED 

30 


6 

9 

DEFINED 

5 



4 

41 

DEFINED 

6 

7 

a 

16 

17 

21 

22 

26 

27 

33 

37 

38 




7 

DEFINED 

1 




41 

DEFINED 

1 




16 

17 

21 

22 

26 

27 

OEFINEB 

15 

28 

25 

36 


2 

5 





2 

11 





' 2 

15 





2 

17 





2 

20 





2 

22 





2 

25 





2 

27 





2 

30 





2 

32 





2 

33 





2 

36 





2 

38 
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25 
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SUBROUTINE TSTRNFaPLftCF) 

OIMENSrOM MP1(2,E0» 

DIMENSION HP216.20) 

DIMENSION IPLACEI5I 

5 DATA IP1P/0/,IP2P/0/»IP1C/0/.IP2C/0/ 

DATA MPl/40*0/.MP2/120*0/ 

IP1=IPLACE(1) 

IP2=1PLACFI2I 
U^dPl.LE.OI GOTO 10 

10 1FIIP1.EQ.1P1P) IPIC=IP1C+1 

IFtIPl.NE.IPlP) IP1C=1 
lFtlP2.eq.IP2P) IP2C=IP2Cti 
IFtIP2.HE.IP2P)IP2C=l 
IP1P=IP1 

15 IP2P=1P2 

NPl (IP1,'1P1G)=HP1(IP1,IPIC> H 
MP2tIP2,lP2G)=MP2(IP2,IP2C ) H 
RETURN 
10 CONTINUE 

20 PRINT 1000,ttMPltI,J)»J=l,2Biil=l»2) 

PRINT 100 Oj I tHP2II,J) , J=l,20) , 1=1,6) 

1000 FORMAT f/lX, 2016) 

RETURN 

END 
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REFS 
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16 
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SUBROUTINE UHIF tFAU, N.RHTNT.RM AXTI 

C THIS VERSION# 25 FEBRUARY 1974 

C IT GENERATES N UNIFORMLY DISTRIBUTED DURATIONS 
C FAU ARRAY OF DURATIONS 

C N DIMENSION OF FAU 

C RMINT MINIMUM DURATION 

C RMAXT MAXIMUM DURATION 

® j' ' ’ 

««««»*««« »«»*«*«*» «••«¥««** r9*****» 

DIMENSION FAUINI ; . 

*««1^*«***« *«▼***««****»*«**«¥ WVV 


no 20 K=1,N 
Y=RANFID. > 

15 FAU<KI=<RHAXr-RMlNri *Y+RMINT 

20 CONTINUF 
END 
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real 
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INTEGER 
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INTEGER 
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REAL 
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REAL 
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UNPACK CDC 6600 FTN V3,fl-P355 OPT=l 04/08/76 17,50.49. 

SUBROUTINF UNPACK«LOC, PLACE) 

INTEGER PLACE 
OIMENSION PLACE (6 J 
DO 10 J=t»5 

PLACE(JI=AM0<63,L0C» 

LOC=SHimLOC,-6» 

10 CONTINUE 
RETURN 
END 
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